Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTR for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTR

fft = getFFTR(data(:))

pm_fftpack::getFFTR
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftpack.F90:1156

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTR

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CKS

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

33 adat = getFFTR(getFFTF(data)) / size(data)

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CKD

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

61 adat = getFFTR(getFFTF(data)) / size(data)

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CKH

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

89 adat = getFFTR(getFFTF(data)) / size(data)

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RKS

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

117 adat = getFFTR(getFFTF(data)) / size(data)

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RKD

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

145 adat = getFFTR(getFFTF(data)) / size(data)

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RKH

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

173 adat = getFFTR(getFFTF(data)) / size(data)

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4112

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11131

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11016

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+99

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.92101145, +0.684037387), (+1.10477495, +0.874325991), (+1.51696014, +0.289515972), (+1.01126432, +0.395397127), (+1.73377204, +0.900086164), (+1.85918128, +0.259002984), (+1.74092793, +0.827988029), (+1.30063164, +0.840755343), (+1.12046468, +0.979040444), (+1.63496423, +0.329678476), (+1.47511828, +0.862672806), (+1.92437387, +0.384578347), (+1.12348115, +0.953254104), (+1.91866171, +0.421510696), (+1.52534652, +0.205612719), (+1.09721184, +0.600773096E-1), (+1.29888773, +0.439930916), (+1.59072065, +0.282983482), (+1.55155230, +0.128270745), (+1.32359517, +0.409560502), (+1.57681704, +0.303913891), (+1.79020858, +0.434128881), (+1.50419092, +0.872244895), (+1.37206697, +0.578707099), (+1.32506979, +0.444334149), (+1.21933079, +0.211250246), (+1.59967744, +0.761734784), (+1.92871141, +0.968107641), (+1.55625439, +0.703251719), (+1.18492317, +0.226777196E-1), (+1.44505966, +0.359527767), (+1.63805866, +0.553550482), (+1.03058100, +0.650733054), (+1.30077028, +0.536512196), (+1.32734406, +0.859472156E-1), (+1.74084210, +0.347652853), (+1.92914414, +0.230217874), (+1.67615414, +0.554964840), (+1.49719238, +0.873512030E-2), (+1.93615389, +0.224110544), (+1.42987680, +0.785260260), (+1.86075854, +0.972696245), (+1.77554679, +0.648491204), (+1.99775648, +0.560399890E-1), (+1.46096373, +0.837582350E-1), (+1.12643337, +0.758593023), (+1.62916374, +0.118185937), (+1.50958323, +0.556074083), (+1.61365151, +0.667931736), (+1.97777808, +0.650205016E-1), (+1.08523381, +0.494668126), (+1.13347280, +0.965808392), (+1.07443142, +0.269737363), (+1.86377215, +0.654999197), (+1.27671218, +0.578514934E-1), (+1.34229326, +0.782441497), (+1.92482567, +0.553077698), (+1.25156510, +0.117419064), (+1.80938005, +0.431939840), (+1.72522593, +0.633206189), (+1.40169597, +0.490642905), (+1.35821915, +0.102366745), (+1.35056448, +0.351818085), (+1.60623956, +0.792559505), (+1.71621585, +0.449069679), (+1.86873555, +0.334490597), (+1.13228583, +0.279988945), (+1.44445872, +0.603477776), (+1.12183046, +0.712742746), (+1.17902517, +0.434452236), (+1.55152142, +0.131260514), (+1.03655922, +0.669816554), (+1.62478387, +0.164651096), (+1.54172587, +0.228751242), (+1.75251400, +0.318186939), (+1.95597339, +0.140871644), (+1.90540397, +0.100732088), (+1.72850227, +0.321047723), (+1.74511886, +0.677025318), (+1.75796044, +0.139998257), (+1.02968812, +0.580753088E-1), (+1.41653967, +0.330720663), (+1.43927455, +0.807828605), (+1.14525771, +0.273247063), (+1.00950241, +0.607394755), (+1.73001385, +0.283127546), (+1.10719979, +0.744628310E-1), (+1.14253259, +0.124758840), (+1.00205112, +0.791489780), (+1.05471778, +0.477014601), (+1.50120986, +0.504525483), (+1.83954787, +0.844107509), (+1.94057405, +0.322125316), (+1.88708854, +0.573519707), (+1.42191446, +0.592982054), (+1.31335473, +0.687634170), (+1.72533512, +0.600059628E-1), (+1.43649030, +0.863865256), (+1.50540900, +0.466664672)

7

8adat = getFFTR(getFFTF(data)) / size(data)

9adat

10(+1.92101145, +0.684037387), (+1.10477483, +0.874325991), (+1.51695991, +0.289515942), (+1.01126432, +0.395397097), (+1.73377168, +0.900086045), (+1.85918152, +0.259003162), (+1.74092782, +0.827988029), (+1.30063128, +0.840755403), (+1.12046492, +0.979040384), (+1.63496411, +0.329678506), (+1.47511816, +0.862672687), (+1.92437387, +0.384578347), (+1.12348080, +0.953253984), (+1.91866159, +0.421510607), (+1.52534676, +0.205612823), (+1.09721148, +0.600773171E-1), (+1.29888773, +0.439931005), (+1.59072089, +0.282983541), (+1.55155194, +0.128270701), (+1.32359529, +0.409560621), (+1.57681692, +0.303913862), (+1.79020894, +0.434128821), (+1.50419056, +0.872244775), (+1.37206662, +0.578707039), (+1.32506990, +0.444334179), (+1.21933091, +0.211250186), (+1.59967732, +0.761734784), (+1.92871153, +0.968107760), (+1.55625474, +0.703251839), (+1.18492305, +0.226777196E-1), (+1.44505990, +0.359527737), (+1.63805854, +0.553550541), (+1.03058088, +0.650732934), (+1.30077040, +0.536512196), (+1.32734406, +0.859472007E-1), (+1.74084210, +0.347652853), (+1.92914402, +0.230217814), (+1.67615390, +0.554964960), (+1.49719250, +0.873538665E-2), (+1.93615401, +0.224110529), (+1.42987657, +0.785260201), (+1.86075878, +0.972696304), (+1.77554679, +0.648491204), (+1.99775636, +0.560401008E-1), (+1.46096385, +0.837582648E-1), (+1.12643313, +0.758593261), (+1.62916374, +0.118185870), (+1.50958359, +0.556074023), (+1.61365151, +0.667931616), (+1.97777808, +0.650205910E-1), (+1.08523393, +0.494668245), (+1.13347244, +0.965808272), (+1.07443166, +0.269737333), (+1.86377215, +0.654999256), (+1.27671218, +0.578514636E-1), (+1.34229338, +0.782441437), (+1.92482555, +0.553077638), (+1.25156510, +0.117419057), (+1.80937994, +0.431939751), (+1.72522569, +0.633206129), (+1.40169597, +0.490643024), (+1.35821939, +0.102366745), (+1.35056424, +0.351818115), (+1.60623968, +0.792559564), (+1.71621609, +0.449069560), (+1.86873543, +0.334490657), (+1.13228583, +0.279988945), (+1.44445848, +0.603477776), (+1.12183046, +0.712742805), (+1.17902517, +0.434452355), (+1.55152118, +0.131260470), (+1.03655934, +0.669816613), (+1.62478387, +0.164651155), (+1.54172587, +0.228751302), (+1.75251436, +0.318186939), (+1.95597351, +0.140871614), (+1.90540373, +0.100732014), (+1.72850227, +0.321047813), (+1.74511874, +0.677025378), (+1.75796032, +0.139998361), (+1.02968848, +0.580754727E-1), (+1.41653931, +0.330720693), (+1.43927443, +0.807828784), (+1.14525771, +0.273247182), (+1.00950241, +0.607394695), (+1.73001397, +0.283127397), (+1.10719979, +0.744627193E-1), (+1.14253283, +0.124758877), (+1.00205100, +0.791489720), (+1.05471754, +0.477014601), (+1.50120962, +0.504525423), (+1.83954799, +0.844107509), (+1.94057381, +0.322125196), (+1.88708854, +0.573519766), (+1.42191458, +0.592982113), (+1.31335461, +0.687634170), (+1.72533500, +0.600060038E-1), (+1.43649030, +0.863865316), (+1.50540888, +0.466664582)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+21

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.2294457350930352, +0.73773599414030699), (+1.8643054520611209, +0.41891547464390000), (+1.4409766174490595, +0.87680654380572653), (+1.7391368689976829, +0.90112457298967585), (+1.0893559370209367, +0.54958796238689567), (+1.2253090962389381, +0.24554100074564156E-2), (+1.4765327420074874, +0.70146077629301906), (+1.3225680685705923, +0.42575830869535980), (+1.4571950862377636, +0.52342889793209613), (+1.5750013355157886, +0.68398616315575600), (+1.9618590936610898, +0.84419705729005723), (+1.8824017051108772, +0.15357104888488404), (+1.6114552640955835, +0.96207719619091525), (+1.0507815766966901, +0.41257641893469865), (+1.9270462717254322, +0.97498048652805014), (+1.0652719075476669, +0.11889225328113195), (+1.7920265552573373, +0.92220626202225620), (+1.8747035781348593, +0.87625740547079445), (+1.7546676360737186, +0.19171458495817950), (+1.6151289516648268, +0.53753948414792729), (+1.8217822363889373, +0.96337562349129924)

24

25adat = getFFTR(getFFTF(data)) / size(data)

26adat

27(+1.2294457350930352, +0.73773599414030699), (+1.8643054520611211, +0.41891547464390022), (+1.4409766174490592, +0.87680654380572676), (+1.7391368689976829, +0.90112457298967552), (+1.0893559370209367, +0.54958796238689567), (+1.2253090962389381, +0.24554100074563258E-2), (+1.4765327420074874, +0.70146077629301906), (+1.3225680685705923, +0.42575830869535991), (+1.4571950862377638, +0.52342889793209613), (+1.5750013355157881, +0.68398616315575589), (+1.9618590936610900, +0.84419705729005723), (+1.8824017051108770, +0.15357104888488390), (+1.6114552640955833, +0.96207719619091514), (+1.0507815766966901, +0.41257641893469876), (+1.9270462717254324, +0.97498048652805003), (+1.0652719075476669, +0.11889225328113193), (+1.7920265552573369, +0.92220626202225631), (+1.8747035781348598, +0.87625740547079412), (+1.7546676360737183, +0.19171458495817945), (+1.6151289516648264, +0.53753948414792718), (+1.8217822363889373, +0.96337562349129924)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+68

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.39504529221782528164621748091378775, +0.673244176658449446957058960328461553), (+1.88034647576248921291554079102869769, +0.508015023040783991734942323467576147), (+1.27005220901989080854798667039152406, +0.411433084313285176299396880401872758), (+1.25014339120334141395931435645334528, +0.586277599793895244882144377313500792), (+1.38044403056953136281979689714589817, +0.769606097199462494308079223813608604), (+1.72497939599185220725178897315876413, +0.606005451527598643545888490731154677), (+1.77936219394009514904567452714304714, +0.547139437652348750883712453286892957), (+1.23146982449762609264853141805506399, +0.392510443023295707622569706868310092), (+1.42921926334076921518559248370677850, +0.116500950779655968450977654625756418), (+1.88582188538763317599158308452041574, +0.848798466803712425069046385913262672), (+1.48632372157137361223303708463863706, +0.595424443626043804324496770559235237), (+1.19409285182065262518730226833148950, +0.400981358720383647801597675067443832), (+1.47717056744590473610720053844603876, +0.827235110002270980118798358242171184), (+1.52935215661446904523580729438442968, +0.325288128281845321988328311024747170E-1), (+1.20246529971977613799938426465047116, +0.994868358628093836683273221537777934), (+1.72568020879265383656454631857103851, +0.555014051256195868674129373111469980), (+1.28682199478249037844245581396381331, +0.814129074172099606526134497285780874), (+1.59275397121501421155026309825569397, +0.149243176490461934335484543904227800), (+1.69668035472291083370501121555910293, +0.805183044779932430733313403546716735), (+1.10068257833677547759193697479856708, +0.718437313790946593605193563039899661), (+1.60788240349103687395105689101479701, +0.881934853060763950642972816146481344), (+1.70695245467088275040315074640932274, +0.582829335706444338120055172936974276), (+1.85318525635089259073269933982560527, +0.338521384341645329002932763017409267), (+1.18620126468956679628631958362130300, +0.118464018776511597609395065146738541), (+1.31844868731016282062144622820410529, +0.700652980358702055995987136514567723), (+1.65227846419409359552290580227912970, +0.496531365122569191061574137573915529), (+1.46095433332722961257973150744084678, +0.980800056547569655752884474666695946), (+1.44417209569434007430405695447039767, +0.560850967185843765796790811458678006E-1), (+1.26745015857573083953965785757146214, +0.505860007240239679415113752067351934), (+1.34499504960584327239245744088817260, +0.344016901910507468722063716605823913), (+1.06449007257248597352703494929526499, +0.352781754431505717151189831633810855), (+1.78130098159028621545178967483129212, +0.154420883124762435982792361190775905), (+1.01579069074913813681435765437952991, +0.860341714558890777724111719804138153E-1), (+1.46877858824040656557728426909093148, +0.223255877215178587576128563927491389), (+1.37133924297857375130658898069262943, +0.622481239160562957277428040027106055), (+1.29700898495377580271361605694919379, +0.326644482993015459325288806073055045), (+1.15636235175207441109779258577855253, +0.805145950058959391774131651707271041), (+1.69501073995404181216057303919084460, +0.569021666122026170401545548988763085E-1), (+1.62010411204514497181945849607269116, +0.411347240902419798623555947161992404), (+1.21778729030974527935092436860937362, +0.838766030077313203363334368458239444), (+1.75320528030163192282769888042182536, +0.989610051642895835795342607437093988), (+1.80942237606658804627605673402434674, +0.634291044912008196715561486946271006), (+1.18697841052032579489448597185246155, +0.210392368301369634781750379456124901), (+1.59315368704023320653470465377093862, +0.571793354660732529783725926757630396E-1), (+1.37323417620546113722917905436684569, +0.762177101116443346538803679664520636), (+1.88783543268196232310936108181035711, +0.680090580620061214756915320582556270), (+1.70310805209755101783387502964486744, +0.254574312486993411242996991866395274), (+1.61552831814739498666681690102907830, +0.635708925975016157212275771982813053), (+1.47826843161231991711986999134376787, +0.953421326335660113034013748214151917), (+1.82519609981518065580332420807297078, +0.407807488736449284935902502071974780E-1), (+1.22812851651727309397149602069671558, +0.946170379240642270614541846027249167), (+1.47494951201187038331882029030639670, +0.402385798820915498925715580268802744), (+1.20573113858556690486187248226445896, +0.136623506683218756152311261559852951), (+1.82554214037224865126167687968707682, +0.779183768377696734703621881434340361), (+1.24676772306781701861043992483447995, +0.726046579891549253777873608658254084), (+1.06766522714439955719995944200939549, +0.690838931619235682073661413147252511E-1), (+1.48412239300355264515797128228548892, +0.340898156796194006327943774587955907), (+1.32503581768699158887946773095493738, +0.304173050414499575572503211063295900), (+1.78590262185614624202111576159156768, +0.857005021952404768013333714034062830), (+1.62452851853396686872680649762247484, +0.699688086031849400497472680703457544), (+1.97080920300120830128361828300804447, +0.762274988973543028525178267097481089), (+1.83604148425807700861397772643052186, +0.158416544706416194300510243622969865E-1), (+1.71202148765779379564231451335040341, +0.921664262574782373673704152648604863), (+1.99699966567860486434510309520334477, +0.379349346405556952184893483481567324), (+1.00269574189182965526813148614569527, +0.736883637425151999815983557262877281), (+1.98370726785336051338414612077966775, +0.751394993583340704779989040659782104), (+1.58982353497801692219053967050777940, +0.479594899151227563832159020328238991), (+1.89769020938729817990567985426831521, +0.288777670872323488138778551584102876)

41

42adat = getFFTR(getFFTF(data)) / size(data)

43adat

44(+1.39504529221782528164621748091378833, +0.673244176658449446957058960328461649), (+1.88034647576248921291554079102869750, +0.508015023040783991734942323467576051), (+1.27005220901989080854798667039152425, +0.411433084313285176299396880401872758), (+1.25014339120334141395931435645334528, +0.586277599793895244882144377313500985), (+1.38044403056953136281979689714589837, +0.769606097199462494308079223813608604), (+1.72497939599185220725178897315876394, +0.606005451527598643545888490731154677), (+1.77936219394009514904567452714304753, +0.547139437652348750883712453286893053), (+1.23146982449762609264853141805506437, +0.392510443023295707622569706868310285), (+1.42921926334076921518559248370677812, +0.116500950779655968450977654625756442), (+1.88582188538763317599158308452041632, +0.848798466803712425069046385913262672), (+1.48632372157137361223303708463863706, +0.595424443626043804324496770559235237), (+1.19409285182065262518730226833148950, +0.400981358720383647801597675067443783), (+1.47717056744590473610720053844603857, +0.827235110002270980118798358242170991), (+1.52935215661446904523580729438443007, +0.325288128281845321988328311024749998E-1), (+1.20246529971977613799938426465047097, +0.994868358628093836683273221537777645), (+1.72568020879265383656454631857103890, +0.555014051256195868674129373111469980), (+1.28682199478249037844245581396381331, +0.814129074172099606526134497285780874), (+1.59275397121501421155026309825569417, +0.149243176490461934335484543904227872), (+1.69668035472291083370501121555910293, +0.805183044779932430733313403546716638), (+1.10068257833677547759193697479856670, +0.718437313790946593605193563039899565), (+1.60788240349103687395105689101479681, +0.881934853060763950642972816146481440), (+1.70695245467088275040315074640932293, +0.582829335706444338120055172936974468), (+1.85318525635089259073269933982560527, +0.338521384341645329002932763017409026), (+1.18620126468956679628631958362130338, +0.118464018776511597609395065146738577), (+1.31844868731016282062144622820410510, +0.700652980358702055995987136514567819), (+1.65227846419409359552290580227912970, +0.496531365122569191061574137573915625), (+1.46095433332722961257973150744084697, +0.980800056547569655752884474666696042), (+1.44417209569434007430405695447039767, +0.560850967185843765796790811458679390E-1), (+1.26745015857573083953965785757146214, +0.505860007240239679415113752067352030), (+1.34499504960584327239245744088817260, +0.344016901910507468722063716605823913), (+1.06449007257248597352703494929526537, +0.352781754431505717151189831633810999), (+1.78130098159028621545178967483129250, +0.154420883124762435982792361190775593), (+1.01579069074913813681435765437952972, +0.860341714558890777724111719804137190E-1), (+1.46877858824040656557728426909093129, +0.223255877215178587576128563927491365), (+1.37133924297857375130658898069262981, +0.622481239160562957277428040027105958), (+1.29700898495377580271361605694919340, +0.326644482993015459325288806073055093), (+1.15636235175207441109779258577855272, +0.805145950058959391774131651707271041), (+1.69501073995404181216057303919084441, +0.569021666122026170401545548988764650E-1), (+1.62010411204514497181945849607269135, +0.411347240902419798623555947161992404), (+1.21778729030974527935092436860937343, +0.838766030077313203363334368458239444), (+1.75320528030163192282769888042182536, +0.989610051642895835795342607437093892), (+1.80942237606658804627605673402434694, +0.634291044912008196715561486946271199), (+1.18697841052032579489448597185246136, +0.210392368301369634781750379456124780), (+1.59315368704023320653470465377093862, +0.571793354660732529783725926757630396E-1), (+1.37323417620546113722917905436684549, +0.762177101116443346538803679664520732), (+1.88783543268196232310936108181035730, +0.680090580620061214756915320582556366), (+1.70310805209755101783387502964486764, +0.254574312486993411242996991866395177), (+1.61552831814739498666681690102907888, +0.635708925975016157212275771982813150), (+1.47826843161231991711986999134376787, +0.953421326335660113034013748214152399), (+1.82519609981518065580332420807297078, +0.407807488736449284935902502071974239E-1), (+1.22812851651727309397149602069671596, +0.946170379240642270614541846027248975), (+1.47494951201187038331882029030639709, +0.402385798820915498925715580268802792), (+1.20573113858556690486187248226445877, +0.136623506683218756152311261559852807), (+1.82554214037224865126167687968707682, +0.779183768377696734703621881434340361), (+1.24676772306781701861043992483447995, +0.726046579891549253777873608658254084), (+1.06766522714439955719995944200939549, +0.690838931619235682073661413147255280E-1), (+1.48412239300355264515797128228548853, +0.340898156796194006327943774587955570), (+1.32503581768699158887946773095493796, +0.304173050414499575572503211063295948), (+1.78590262185614624202111576159156749, +0.857005021952404768013333714034062830), (+1.62452851853396686872680649762247484, +0.699688086031849400497472680703457640), (+1.97080920300120830128361828300804427, +0.762274988973543028525178267097480993), (+1.83604148425807700861397772643052205, +0.158416544706416194300510243622972874E-1), (+1.71202148765779379564231451335040361, +0.921664262574782373673704152648604863), (+1.99699966567860486434510309520334419, +0.379349346405556952184893483481567035), (+1.00269574189182965526813148614569565, +0.736883637425151999815983557262877185), (+1.98370726785336051338414612077966775, +0.751394993583340704779989040659782104), (+1.58982353497801692219053967050777940, +0.479594899151227563832159020328239088), (+1.89769020938729817990567985426831501, +0.288777670872323488138778551584102731)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+58

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.90723586, +1.81589317, +1.72075558, +1.94932914, +1.15286303, +1.15590858, +1.42926764, +1.27228761, +1.94283748, +1.85875750, +1.23234701, +1.40254903, +1.45041633, +1.72684813, +1.38273299, +1.38595104, +1.04280674, +1.41999257, +1.79027665, +1.36224413, +1.44210672, +1.52481329, +1.97207677, +1.22877908, +1.37024951, +1.17952228, +1.55922389, +1.46501970, +1.38056397, +1.51113057, +1.04808259, +1.27056050, +1.18821931, +1.86480463, +1.17798591, +1.86315632, +1.21542335, +1.85185766, +1.22699666, +1.98304152, +1.80691648, +1.93213654, +1.21608114, +1.63704872, +1.82526755, +1.65321243, +1.66628432, +1.37170279, +1.19375801, +1.87753868, +1.62812889, +1.09979892, +1.95625019, +1.05498719, +1.17866635, +1.86996675, +1.67363381, +1.14346957

58

59adat = getFFTR(getFFTF(data)) / size(data)

60adat

61+1.90723574, +1.81589341, +1.72075558, +1.94932854, +1.15286326, +1.15590882, +1.42926812, +1.27228761, +1.94283688, +1.85875773, +1.23234761, +1.40254855, +1.45041609, +1.72684789, +1.38273323, +1.38595080, +1.04280734, +1.41999269, +1.79027605, +1.36224389, +1.44210720, +1.52481341, +1.97207546, +1.22877860, +1.37024999, +1.17952311, +1.55922353, +1.46501875, +1.38056481, +1.51113176, +1.04808438, +1.27056336, +1.18821895, +1.86480260, +1.17798615, +1.86315680, +1.21542323, +1.85185647, +1.22699726, +1.98304164, +1.80691576, +1.93213546, +1.21608174, +1.63704896, +1.82526731, +1.65321195, +1.66628397, +1.37170303, +1.19375837, +1.87753785, +1.62812829, +1.09979975, +1.95625019, +1.05498719, +1.17866659, +1.86996675, +1.67363381, +1.14346933

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+100

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.3076384303420028, +1.4673339094770159, +1.4259938841398814, +1.7242083464749736, +1.3962092937658839, +1.6247075707437526, +1.7266853895646228, +1.1932411743936084, +1.6813361606330313, +1.9156199026443057, +1.1695365492690848, +1.8801714533359550, +1.1263780757260520, +1.2812376877645244, +1.1887502123368594, +1.4920249462206265, +1.9905858951810074, +1.9636025209689680, +1.5093509142705170, +1.0453281444476703, +1.4341876288091322, +1.5245993841607581, +1.0736031706809748, +1.4341016000517344, +1.2789633640134199, +1.5164778734174098, +1.8762940570268187, +1.5924393152483798, +1.3500013397338588, +1.3479368995279324, +1.9969676309812270, +1.7825759658220051, +1.1358321375800320, +1.9646001483847415, +1.6193059182571949, +1.0512802886340447, +1.0299205325816581, +1.5720790171019685, +1.2453533673757939, +1.6659412467459158, +1.1979480759074219, +1.8290380455874806, +1.4678043928357976, +1.1443510144219777, +1.1099454640516773, +1.1345592296604108, +1.3745704360995425, +1.7109694893401939, +1.0587459142935285, +1.2020395786191420, +1.7527537397256912, +1.5013782899319961, +1.2345608895747835, +1.0176364773086224, +1.8800441093964575, +1.4824605053630129, +1.0767389898471582, +1.4170500967472259, +1.9368364123268260, +1.4703359392356976, +1.1466791657316402, +1.8387753013345116, +1.8224707782365441, +1.6080335176630092, +1.5993827068389668, +1.3689730713630373, +1.6893723434776926, +1.7600731852084319, +1.4764038801204160, +1.9741412267604699, +1.1376839396365779, +1.3675693503090476, +1.1251489070403944, +1.2992634415589039, +1.3346502912063316, +1.1699275139661482, +1.9940858312679723, +1.2855624036250892, +1.1969422349541334, +1.4925520139297550, +1.3694525042175143, +1.4032452817291374, +1.5317860774113745, +1.4861110094570764, +1.8947306610021977, +1.9208210021174281, +1.0754015319295969, +1.1402035263386987, +1.9179227503573415, +1.4797381868879635, +1.2262348397272436, +1.4493914374647261, +1.5352105132228915, +1.1305057293761287, +1.1802522801044297, +1.8227698279410021, +1.6741456423883587, +1.8988004010041621, +1.3264433923592485, +1.3757702545656534

75

76adat = getFFTR(getFFTF(data)) / size(data)

77adat

78+1.3076384303420034, +1.4673339094770161, +1.4259938841398818, +1.7242083464749738, +1.3962092937658841, +1.6247075707437519, +1.7266853895646224, +1.1932411743936091, +1.6813361606330317, +1.9156199026443057, +1.1695365492690846, +1.8801714533359553, +1.1263780757260526, +1.2812376877645244, +1.1887502123368592, +1.4920249462206265, +1.9905858951810078, +1.9636025209689674, +1.5093509142705168, +1.0453281444476703, +1.4341876288091322, +1.5245993841607579, +1.0736031706809748, +1.4341016000517341, +1.2789633640134197, +1.5164778734174091, +1.8762940570268183, +1.5924393152483796, +1.3500013397338591, +1.3479368995279324, +1.9969676309812265, +1.7825759658220048, +1.1358321375800322, +1.9646001483847411, +1.6193059182571943, +1.0512802886340440, +1.0299205325816585, +1.5720790171019681, +1.2453533673757937, +1.6659412467459154, +1.1979480759074221, +1.8290380455874802, +1.4678043928357973, +1.1443510144219777, +1.1099454640516770, +1.1345592296604101, +1.3745704360995421, +1.7109694893401937, +1.0587459142935289, +1.2020395786191416, +1.7527537397256909, +1.5013782899319961, +1.2345608895747835, +1.0176364773086219, +1.8800441093964568, +1.4824605053630122, +1.0767389898471587, +1.4170500967472257, +1.9368364123268258, +1.4703359392356972, +1.1466791657316404, +1.8387753013345114, +1.8224707782365439, +1.6080335176630092, +1.5993827068389666, +1.3689730713630366, +1.6893723434776922, +1.7600731852084315, +1.4764038801204165, +1.9741412267604692, +1.1376839396365777, +1.3675693503090474, +1.1251489070403944, +1.2992634415589035, +1.3346502912063309, +1.1699275139661476, +1.9940858312679726, +1.2855624036250888, +1.1969422349541332, +1.4925520139297546, +1.3694525042175143, +1.4032452817291372, +1.5317860774113745, +1.4861110094570764, +1.8947306610021974, +1.9208210021174272, +1.0754015319295964, +1.1402035263386985, +1.9179227503573417, +1.4797381868879633, +1.2262348397272431, +1.4493914374647259, +1.5352105132228915, +1.1305057293761283, +1.1802522801044288, +1.8227698279410018, +1.6741456423883587, +1.8988004010041615, +1.3264433923592480, +1.3757702545656534

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+78

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.70564712152324166140594974996326222, +1.72989060835045813821005747648325580, +1.50250192172249504827502761652480153, +1.17535312791299032587204324340598127, +1.33147449320137695477306501902357202, +1.43342083011950541832053413503697607, +1.65233306425002580893914426220017418, +1.70244167967966119764297657912523747, +1.73428766656248891430101015638133748, +1.23041006942297652588488935962605520, +1.84193948302685845487910685330307082, +1.90524933742247890563597551163411394, +1.73798062990021209131690227297596782, +1.42923681603072635118491041885510803, +1.76362044498786755052431333661652543, +1.60409519780660892200316201995891912, +1.47373206731033807201906673831870566, +1.38679219001985884701853686454021965, +1.90837873141618669620362536430864676, +1.66902680841118114703663918983256735, +1.55244086412416883749791923726661489, +1.36790197482823384121136320592448718, +1.47476888519149268721264175060928591, +1.19507321838730187553762774496187705, +1.65834694559418750342929112781797108, +1.99596748949639926360182641154889744, +1.38810000960586479266606327976734074, +1.64397532886878399981750187628834010, +1.82469201818597883665485068974890868, +1.98767939358556025139189159036964615, +1.50730807086221311407868040292728031, +1.04443796915955020454130815420282854, +1.61340271800542243270391631579031850, +1.18222093468784267206827554285439065, +1.55238070626856000639202585178616839, +1.91459013030766907167044929691043869, +1.41030082661609397435376425015416068, +1.86921943105468693590644110698424522, +1.49046304742170743089881241798127379, +1.21009270957203747967338585058564331, +1.65496825153427218005397808261761275, +1.40052433462860463901148892080044992, +1.21745125310986199275475221965994128, +1.97120164486093701963858754875773368, +1.16797431366612882040283901996084971, +1.90003158210895812264340424650084429, +1.04119472687383055980403029683854100, +1.06591482689095979980777666974545270, +1.58270977278102960846722849283823884, +1.64293294724515049894212505847231949, +1.60560658741528105853557794187133954, +1.82339452748387748156744987358196973, +1.10908810694096586556688843875811280, +1.62879879846449831365827095395723995, +1.07509694213293975016951456038540592, +1.43121164365544521712679982690021667, +1.38018216225275561962174760059717038, +1.20078957645862536955963437499584423, +1.41997298468212143828875516581785310, +1.11793966762613316195622185891202451, +1.97024703539703452550466190008887350, +1.17905879647789590975776695437743776, +1.49928759827706778488051443583932770, +1.77995490007713958047058219766449091, +1.67888506483390569660622519908859612, +1.09621769497920002344710249274089180, +1.83755795792302633603270032859385808, +1.60081639626964223608899466942557143, +1.32015246718342524776939661932585596, +1.36574789949683601736480283537190481, +1.74539990606117499048356541866932860, +1.39183693645936545704080751371552294, +1.65469131188379102166084287558168398, +1.49745131365782289920207483454727687, +1.89007642693593837645779185097673432, +1.49143569738346523822247590065519594, +1.52165366956096511080510929956390107, +1.52689026761482197019235142295612770

92

93adat = getFFTR(getFFTF(data)) / size(data)

94adat

95+1.70564712152324166140594974996326280, +1.72989060835045813821005747648325542, +1.50250192172249504827502761652480153, +1.17535312791299032587204324340598185, +1.33147449320137695477306501902357202, +1.43342083011950541832053413503697626, +1.65233306425002580893914426220017495, +1.70244167967966119764297657912523843, +1.73428766656248891430101015638133768, +1.23041006942297652588488935962605578, +1.84193948302685845487910685330307139, +1.90524933742247890563597551163411452, +1.73798062990021209131690227297596763, +1.42923681603072635118491041885510784, +1.76362044498786755052431333661652505, +1.60409519780660892200316201995891893, +1.47373206731033807201906673831870546, +1.38679219001985884701853686454021984, +1.90837873141618669620362536430864714, +1.66902680841118114703663918983256793, +1.55244086412416883749791923726661547, +1.36790197482823384121136320592448776, +1.47476888519149268721264175060928630, +1.19507321838730187553762774496187763, +1.65834694559418750342929112781797089, +1.99596748949639926360182641154889687, +1.38810000960586479266606327976734055, +1.64397532886878399981750187628833991, +1.82469201818597883665485068974890810, +1.98767939358556025139189159036964577, +1.50730807086221311407868040292728089, +1.04443796915955020454130815420282989, +1.61340271800542243270391631579031850, +1.18222093468784267206827554285439181, +1.55238070626856000639202585178616878, +1.91459013030766907167044929691043907, +1.41030082661609397435376425015416087, +1.86921943105468693590644110698424426, +1.49046304742170743089881241798127379, +1.21009270957203747967338585058564273, +1.65496825153427218005397808261761198, +1.40052433462860463901148892080045031, +1.21745125310986199275475221965994089, +1.97120164486093701963858754875773214, +1.16797431366612882040283901996084952, +1.90003158210895812264340424650084410, +1.04119472687383055980403029683853985, +1.06591482689095979980777666974545250, +1.58270977278102960846722849283823961, +1.64293294724515049894212505847232084, +1.60560658741528105853557794187133973, +1.82339452748387748156744987358197069, +1.10908810694096586556688843875811338, +1.62879879846449831365827095395724033, +1.07509694213293975016951456038540592, +1.43121164365544521712679982690021609, +1.38018216225275561962174760059716980, +1.20078957645862536955963437499584423, +1.41997298468212143828875516581785272, +1.11793966762613316195622185891202413, +1.97024703539703452550466190008887389, +1.17905879647789590975776695437743872, +1.49928759827706778488051443583932809, +1.77995490007713958047058219766449129, +1.67888506483390569660622519908859612, +1.09621769497920002344710249274089238, +1.83755795792302633603270032859385750, +1.60081639626964223608899466942557104, +1.32015246718342524776939661932585557, +1.36574789949683601736480283537190461, +1.74539990606117499048356541866932821, +1.39183693645936545704080751371552313, +1.65469131188379102166084287558168494, +1.49745131365782289920207483454727745, +1.89007642693593837645779185097673490, +1.49143569738346523822247590065519671, +1.52165366956096511080510929956390165, +1.52689026761482197019235142295612827

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+12

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.36016321, +0.385130823), (+1.76914287, +0.821367502E-1), (+1.87943769, +0.947249651), (+1.98227239, +0.138484240), (+1.91567063, +0.480857551), (+1.20667470, +0.730696917), (+1.70681620, +0.272739947), (+1.17904913, +0.651012242), (+1.78331017, +0.882184863), (+1.48306000, +0.327242851), (+1.74808407, +0.445687950), (+1.29247093, +0.207293868)

109

110adat = getFFTR(getFFTF(data)) / size(data)

111adat

112(+1.36016321, +0.385130793), (+1.76914275, +0.821367502E-1), (+1.87943780, +0.947249651), (+1.98227251, +0.138484195), (+1.91567075, +0.480857491), (+1.20667470, +0.730696857), (+1.70681620, +0.272739977), (+1.17904913, +0.651012242), (+1.78331029, +0.882184923), (+1.48305988, +0.327242821), (+1.74808407, +0.445687890), (+1.29247105, +0.207293808)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+73

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.5628808418975422, +0.16543275427638382), (+1.3544165813586706, +0.39852997057121975), (+1.8537415132051613, +0.53499501548398509), (+1.5288544336007515, +0.56410506848905129), (+1.8711783804665882, +0.21067594927536859), (+1.9924529274712024, +0.89871774727476961), (+1.4716714320374984, +0.24335921293329965), (+1.9531240357364885, +0.76866250965863869), (+1.4940428540870105, +0.44875373009989517), (+1.8664575055293637, +0.84585760175174218), (+1.2510647641518957, +0.82625312138222384), (+1.3731563938489664, +0.13423278636846514), (+1.3678164935516732, +0.83030190160746009), (+1.6472745600534875, +0.29180664670332990), (+1.2850068514445485, +0.40042309837565371), (+1.8104019617814937, +0.31099973197902098), (+1.3858516070997269, +0.24384364101622813E-2), (+1.2107528043654261, +0.34245499843400629), (+1.4951200286984427, +0.90295806561478109), (+1.8507135139418556, +0.98236890585931191), (+1.2235508129916668, +0.62229342136125276), (+1.3187213009095717, +0.72052938927290866), (+1.4278078135037324, +0.66477959358756888E-1), (+1.3067479880330359, +0.29897668802665778), (+1.6045958662625655, +0.77569105214276957), (+1.1743145908909529, +0.11269716639224914), (+1.5302537142935289, +0.22357600825549717), (+1.2251002047146577, +0.42638077323898016), (+1.4642552738263628, +0.85653150835205416E-2), (+1.7078702729842390, +0.36144347790597597), (+1.1504825457878964, +0.13307091649007718), (+1.1350816587896784, +0.21746859823104947), (+1.2273503882173582, +0.50880169849031387), (+1.3890905960090465, +0.53277837733677613), (+1.0603582994902427, +0.50131212065110109), (+1.2388939069043023, +0.10153382377986908), (+1.5517770751665894, +0.41954250983732433), (+1.7676495480392336, +0.83392059147023889), (+1.9661143036543118, +0.58558221736523597), (+1.1770438273294870, +0.17878428557167836), (+1.9574247815989958, +0.40236089857493229), (+1.9538781053927325, +0.26227535472488839), (+1.7846850723003405, +0.28175831531644446), (+1.4547756649551422, +0.30293269989026561), (+1.1862287855448823, +0.87081827541019685), (+1.8224245755361783, +0.67502560201839856), (+1.2773219201862829, +0.12867122415990628), (+1.5160763488230111, +0.46656978232727242), (+1.3473622352439032, +0.89983829542293448E-1), (+1.4473983666947148, +0.80748634050539136), (+1.4313420459840709, +0.74518618194239228), (+1.8254394677053130, +0.14381027815613001), (+1.4988406125964397, +0.94957082705014018E-1), (+1.3680000574633928, +0.27534141031899828), (+1.4710537673933906, +0.83367481312069169), (+1.9333917403378227, +0.13753834368903650E-1), (+1.0230795491356968, +0.10283530584683642), (+1.6389113034011999, +0.97087180943836193), (+1.1226404728948560, +0.47855954601706419), (+1.0499785892796716, +0.37769874918338964), (+1.2847304967314594, +0.87357054366550713), (+1.1143364083933047, +0.50095071889658538), (+1.7783811592834453, +0.38428856910511910), (+1.1358820442245179, +0.21637659207830973), (+1.8781333083780212, +0.72016231707331591), (+1.6625254323867495, +0.55039077695459138), (+1.2269310511391400, +0.59777626832846165), (+1.8563536731884684, +0.89370936984078220), (+1.3992244976664714, +0.30244914916639987), (+1.6775714479688653, +0.75385214856792460), (+1.5454188362252648, +0.84810267102182690), (+1.9382224667889294, +0.59457927679216749), (+1.0646551038564076, +0.35724964359109812)

126

127adat = getFFTR(getFFTF(data)) / size(data)

128adat

129(+1.5628808418975424, +0.16543275427638354), (+1.3544165813586713, +0.39852997057121980), (+1.8537415132051625, +0.53499501548398498), (+1.5288544336007523, +0.56410506848905151), (+1.8711783804665894, +0.21067594927536798), (+1.9924529274712035, +0.89871774727476983), (+1.4716714320374991, +0.24335921293329918), (+1.9531240357364894, +0.76866250965863847), (+1.4940428540870112, +0.44875373009989505), (+1.8664575055293644, +0.84585760175174196), (+1.2510647641518966, +0.82625312138222406), (+1.3731563938489673, +0.13423278636846547), (+1.3678164935516737, +0.83030190160746020), (+1.6472745600534873, +0.29180664670332984), (+1.2850068514445494, +0.40042309837565360), (+1.8104019617814928, +0.31099973197902114), (+1.3858516070997273, +0.24384364101624955E-2), (+1.2107528043654261, +0.34245499843400645), (+1.4951200286984430, +0.90295806561478109), (+1.8507135139418560, +0.98236890585931158), (+1.2235508129916677, +0.62229342136125265), (+1.3187213009095724, +0.72052938927290855), (+1.4278078135037326, +0.66477959358756916E-1), (+1.3067479880330362, +0.29897668802665778), (+1.6045958662625659, +0.77569105214276968), (+1.1743145908909527, +0.11269716639224922), (+1.5302537142935293, +0.22357600825549739), (+1.2251002047146580, +0.42638077323898038), (+1.4642552738263634, +0.85653150835207671E-2), (+1.7078702729842392, +0.36144347790597664), (+1.1504825457878962, +0.13307091649007721), (+1.1350816587896786, +0.21746859823104972), (+1.2273503882173580, +0.50880169849031398), (+1.3890905960090461, +0.53277837733677613), (+1.0603582994902430, +0.50131212065110142), (+1.2388939069043028, +0.10153382377986925), (+1.5517770751665889, +0.41954250983732444), (+1.7676495480392331, +0.83392059147023934), (+1.9661143036543121, +0.58558221736523608), (+1.1770438273294870, +0.17878428557167864), (+1.9574247815989954, +0.40236089857493240), (+1.9538781053927323, +0.26227535472488861), (+1.7846850723003409, +0.28175831531644469), (+1.4547756649551420, +0.30293269989026583), (+1.1862287855448825, +0.87081827541019730), (+1.8224245755361790, +0.67502560201839867), (+1.2773219201862829, +0.12867122415990659), (+1.5160763488230116, +0.46656978232727253), (+1.3473622352439025, +0.89983829542293420E-1), (+1.4473983666947154, +0.80748634050539159), (+1.4313420459840711, +0.74518618194239228), (+1.8254394677053136, +0.14381027815613032), (+1.4988406125964404, +0.94957082705013976E-1), (+1.3680000574633935, +0.27534141031899817), (+1.4710537673933910, +0.83367481312069147), (+1.9333917403378229, +0.13753834368903534E-1), (+1.0230795491356965, +0.10283530584683659), (+1.6389113034012004, +0.97087180943836182), (+1.1226404728948554, +0.47855954601706430), (+1.0499785892796725, +0.37769874918338964), (+1.2847304967314594, +0.87357054366550702), (+1.1143364083933049, +0.50095071889658538), (+1.7783811592834462, +0.38428856910511938), (+1.1358820442245186, +0.21637659207830992), (+1.8781333083780221, +0.72016231707331557), (+1.6625254323867504, +0.55039077695459149), (+1.2269310511391407, +0.59777626832846154), (+1.8563536731884693, +0.89370936984078198), (+1.3992244976664723, +0.30244914916639987), (+1.6775714479688666, +0.75385214856792404), (+1.5454188362252657, +0.84810267102182679), (+1.9382224667889303, +0.59457927679216749), (+1.0646551038564083, +0.35724964359109818)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+49

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.27291059207061922764068314189961302, +0.490393942419066323673333626669482102), (+1.84423712546769950435869010807388604, +0.357224727290931843638073160114766930), (+1.28989462456145187686280548422809179, +0.432769396984568000975594259888189819), (+1.61622326995141552588928909293530453, +0.609750754044549742489564810708623104), (+1.90385178728777015541614288143663874, +0.444295182542365537656130968996726592), (+1.67061061407400398889204666399889433, +0.391064980222273506227353780291498621), (+1.04298968733017873928342807149021838, +0.745733345683253250307496852938166197), (+1.79294062478414553298433776592400145, +0.124607818033068714456040630590663898), (+1.68577558557503967313727916077178176, +0.193086166809527176426471975860620309), (+1.04555095014160033064186758033377946, +0.466246668125578015187224218913740972), (+1.70093042351467197723957696094377340, +0.939721803412071877402390406822743324), (+1.20586673971680628110743125496207861, +0.726672794950458836083701258878168195E-1), (+1.16771303906833422413230950328904070, +0.196549039443910323518772279214498857), (+1.88670132483736221952802497567750094, +0.735069486830030196264178352165373017), (+1.68096766063545053246072299321551155, +0.204370777796456865337131273873684187), (+1.06672054481633289997360434860751993, +0.121762751361723519576056137300866313), (+1.03881276947381987511070530607377611, +0.791007554707240860395740848609288286), (+1.75855248554389109194037560925648501, +0.747377322746131634100707713682133097), (+1.17273713234009766530735260508323174, +0.430022792212009270062929660079282184), (+1.88493633999829556341044481518067117, +0.634263411760097010075031489025991197), (+1.72116313876186704720923956737879088, +0.812314916368128470832771513553637652), (+1.90756509622592191717887674221031030, +0.375865044009736321113530248361144618), (+1.38201676807430276532382625963426935, +0.401656866402291321029454754958587567), (+1.29436916103488557497923852812752864, +0.337577010836063816555223416636314230), (+1.72048967336972148203333265779047872, +0.715809984451158346861954302181972189), (+1.09255854585179594620858948815481243, +0.434298827493412536221048141920139070), (+1.93109807233599639546835389574872181, +0.184790905271238745577842906314827396), (+1.05361467439583121716753453530368419, +0.798573004131035655242896747544376111), (+1.92612296058694343032080261162378492, +0.746718408969021335982666035916049688), (+1.55050141707370727332453381681937823, +0.941272438776198720623434620389549924), (+1.71013174592223819817001368376425491, +0.910074787554426628242544227077566051), (+1.24968650735493565183532902848983779, +0.677005949779672957856991680234925237), (+1.36830708746424245096451407365933182, +0.189128904320306350650530633115555807), (+1.84365177572009190405297714321808200, +0.673604204888069558074220288485613233), (+1.26708050457616763412805163997062787, +0.859954188582225001973263305040599956E-1), (+1.27008595732736299213820541275928823, +0.881493340853705746113813023668517371), (+1.32890165786375104027696202672755543, +0.859439000201693249136505063789845976), (+1.91031528060105953058128553761559252, +0.318270711669431926095215947999775872), (+1.49565691536220133236324962130426788, +0.330220776214726926603067235152236173E-1), (+1.32930816110155928536899155445513665, +0.183079201833288154158701909750995729), (+1.50738335676443126042781372791482081, +0.721653735400581601995161318658507606), (+1.94067472258591759290767215895590203, +0.836718054816856862770810086900203290), (+1.88068911868354029031335527091840215, +0.323539881519373245159513791460113388), (+1.22714725961127826239019292005813244, +0.181469142868179728177096699358626328), (+1.09752778426818307704935273586047416, +0.816225553013160654031621985563150438), (+1.32519249414740617281374480209483705, +0.141651187841472993828794501759872024), (+1.61682642483502582904676660535975496, +0.771172070691621018452283058148748068E-1), (+1.21011669271234045017693062696273683, +0.723225523633736942239781340310605370), (+1.45661653226809941370088279244767189, +0.741976330854512758519215331147004653)

143

144adat = getFFTR(getFFTF(data)) / size(data)

145adat

146(+1.27291059207061922764068314189961264, +0.490393942419066323673333626669482246), (+1.84423712546769950435869010807388584, +0.357224727290931843638073160114767026), (+1.28989462456145187686280548422809179, +0.432769396984568000975594259888189771), (+1.61622326995141552588928909293530434, +0.609750754044549742489564810708623200), (+1.90385178728777015541614288143663855, +0.444295182542365537656130968996726592), (+1.67061061407400398889204666399889433, +0.391064980222273506227353780291498717), (+1.04298968733017873928342807149021838, +0.745733345683253250307496852938166197), (+1.79294062478414553298433776592400106, +0.124607818033068714456040630590663946), (+1.68577558557503967313727916077178176, +0.193086166809527176426471975860620477), (+1.04555095014160033064186758033377946, +0.466246668125578015187224218913740924), (+1.70093042351467197723957696094377340, +0.939721803412071877402390406822743324), (+1.20586673971680628110743125496207841, +0.726672794950458836083701258878167232E-1), (+1.16771303906833422413230950328904109, +0.196549039443910323518772279214498953), (+1.88670132483736221952802497567750113, +0.735069486830030196264178352165373209), (+1.68096766063545053246072299321551117, +0.204370777796456865337131273873684187), (+1.06672054481633289997360434860751993, +0.121762751361723519576056137300866349), (+1.03881276947381987511070530607377611, +0.791007554707240860395740848609288189), (+1.75855248554389109194037560925648520, +0.747377322746131634100707713682133193), (+1.17273713234009766530735260508323154, +0.430022792212009270062929660079282040), (+1.88493633999829556341044481518067136, +0.634263411760097010075031489025991390), (+1.72116313876186704720923956737879107, +0.812314916368128470832771513553637941), (+1.90756509622592191717887674221030952, +0.375865044009736321113530248361144666), (+1.38201676807430276532382625963426916, +0.401656866402291321029454754958587519), (+1.29436916103488557497923852812752845, +0.337577010836063816555223416636314278), (+1.72048967336972148203333265779047853, +0.715809984451158346861954302181972092), (+1.09255854585179594620858948815481204, +0.434298827493412536221048141920138974), (+1.93109807233599639546835389574872201, +0.184790905271238745577842906314827396), (+1.05361467439583121716753453530368400, +0.798573004131035655242896747544376111), (+1.92612296058694343032080261162378434, +0.746718408969021335982666035916049592), (+1.55050141707370727332453381681937784, +0.941272438776198720623434620389550117), (+1.71013174592223819817001368376425472, +0.910074787554426628242544227077566147), (+1.24968650735493565183532902848983741, +0.677005949779672957856991680234924948), (+1.36830708746424245096451407365933143, +0.189128904320306350650530633115555807), (+1.84365177572009190405297714321808200, +0.673604204888069558074220288485613329), (+1.26708050457616763412805163997062768, +0.859954188582225001973263305040598993E-1), (+1.27008595732736299213820541275928785, +0.881493340853705746113813023668517371), (+1.32890165786375104027696202672755562, +0.859439000201693249136505063789846072), (+1.91031528060105953058128553761559252, +0.318270711669431926095215947999775872), (+1.49565691536220133236324962130426768, +0.330220776214726926603067235152235691E-1), (+1.32930816110155928536899155445513684, +0.183079201833288154158701909750995801), (+1.50738335676443126042781372791482100, +0.721653735400581601995161318658507703), (+1.94067472258591759290767215895590203, +0.836718054816856862770810086900203483), (+1.88068911868354029031335527091840176, +0.323539881519373245159513791460113436), (+1.22714725961127826239019292005813263, +0.181469142868179728177096699358626425), (+1.09752778426818307704935273586047396, +0.816225553013160654031621985563150342), (+1.32519249414740617281374480209483686, +0.141651187841472993828794501759872000), (+1.61682642483502582904676660535975496, +0.771172070691621018452283058148749031E-1), (+1.21011669271234045017693062696273721, +0.723225523633736942239781340310605562), (+1.45661653226809941370088279244767228, +0.741976330854512758519215331147004750)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+65

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.06170070, +1.29289258, +1.44036722, +1.43974710, +1.63417113, +1.78740883, +1.83352661, +1.07797289, +1.33932137, +1.70525205, +1.90460575, +1.20563030, +1.21109462, +1.73031783, +1.56166673, +1.65043283, +1.33760595, +1.12204778, +1.84162593, +1.02241969, +1.89101267, +1.76785827, +1.16690052, +1.16668224, +1.19536829, +1.76840305, +1.06842470, +1.74964237, +1.47567415, +1.39972854, +1.39543080, +1.90404022, +1.18393111, +1.93600476, +1.26130438, +1.04028857, +1.66755736, +1.26304603, +1.72256136, +1.54246593, +1.15844727, +1.17592835, +1.29845154, +1.17510235, +1.76695299, +1.07473826, +1.05507827, +1.53076315, +1.96718693, +1.34386706, +1.23593402, +1.03215396, +1.61699641, +1.02810001, +1.31284738, +1.96038198, +1.43581522, +1.90289176, +1.71758950, +1.89600372, +1.07377696, +1.01593506, +1.25612020, +1.99626756, +1.90116310

160

161adat = getFFTR(getFFTF(data)) / size(data)

162adat

163+1.06170034, +1.29289281, +1.44036734, +1.43974733, +1.63417113, +1.78740835, +1.83352613, +1.07797289, +1.33932114, +1.70525193, +1.90460563, +1.20563078, +1.21109474, +1.73031819, +1.56166661, +1.65043223, +1.33760548, +1.12204731, +1.84162521, +1.02241921, +1.89101231, +1.76785839, +1.16690087, +1.16668272, +1.19536817, +1.76840234, +1.06842399, +1.74964201, +1.47567344, +1.39972818, +1.39543104, +1.90404129, +1.18393207, +1.93600595, +1.26130486, +1.04028904, +1.66755867, +1.26304674, +1.72256243, +1.54246640, +1.15844655, +1.17592752, +1.29845130, +1.17510176, +1.76695275, +1.07473779, +1.05507863, +1.53076363, +1.96718740, +1.34386694, +1.23593330, +1.03215349, +1.61699617, +1.02809942, +1.31284690, +1.96038187, +1.43581569, +1.90289187, +1.71758974, +1.89600360, +1.07377636, +1.01593459, +1.25612020, +1.99626744, +1.90116310

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+87

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.7191153939832464, +1.6959643924865686, +1.6481124674939531, +1.3409562736605425, +1.5105731192982415, +1.1207666264560272, +1.8778533344001547, +1.6262260939385336, +1.6653988514646512, +1.2728078963050597, +1.0631126968878373, +1.5501140904192763, +1.8334405333494321, +1.1915845652917785, +1.9591074631071743, +1.5402516146580321, +1.7526190484096480, +1.0833498583989194, +1.6404140300669505, +1.5041560484661738, +1.7169015394473850, +1.1896396224023358, +1.5223744337883702, +1.4418824140196005, +1.0830082999866062, +1.7152432893708796, +1.5476929240389556, +1.2989863371162134, +1.3480252205642154, +1.1445871851833060, +1.1492735800228207, +1.0597899046010699, +1.9073473162424732, +1.4904770327224433, +1.5949223959782537, +1.7776397421430696, +1.1064799127736564, +1.5214484899703136, +1.0387216636806516, +1.2443115444748791, +1.6044017489316511, +1.8492424119522648, +1.5176452851714473, +1.5372147654669992, +1.2853461975921401, +1.1959518633805912, +1.4289507492357680, +1.1239475531534331, +1.7580998162354584, +1.5140691993929001, +1.7817502033294603, +1.7181985964910533, +1.5077444709892434, +1.2906921490343628, +1.5424537740103104, +1.0988340259134675, +1.8848757383792649, +1.8565143807100219, +1.4736626541310740, +1.2224916808712776, +1.6966938548767709, +1.7352884208773864, +1.7943139466615865, +1.8135990160535382, +1.7742874398609294, +1.4638128358211824, +1.9362410103184260, +1.9177141914624722, +1.3644522880840817, +1.8730813729796987, +1.0049197023426863, +1.6810637513753974, +1.7544886015572183, +1.7402161260251838, +1.4900254612768591, +1.8324409008169904, +1.7783396771996851, +1.0093099381655226, +1.5341929971396753, +1.4438571733082080, +1.4247564070741072, +1.6630916692139190, +1.1500344678623651, +1.2221092205782633, +1.6654374909907714, +1.9665502189420390, +1.4567979931057153

177

178adat = getFFTR(getFFTF(data)) / size(data)

179adat

180+1.7191153939832464, +1.6959643924865697, +1.6481124674939540, +1.3409562736605434, +1.5105731192982412, +1.1207666264560283, +1.8778533344001545, +1.6262260939385342, +1.6653988514646514, +1.2728078963050602, +1.0631126968878379, +1.5501140904192763, +1.8334405333494308, +1.1915845652917796, +1.9591074631071732, +1.5402516146580314, +1.7526190484096464, +1.0833498583989218, +1.6404140300669490, +1.5041560484661742, +1.7169015394473830, +1.1896396224023360, +1.5223744337883702, +1.4418824140196014, +1.0830082999866075, +1.7152432893708784, +1.5476929240389543, +1.2989863371162111, +1.3480252205642147, +1.1445871851833089, +1.1492735800228215, +1.0597899046010724, +1.9073473162424703, +1.4904770327224401, +1.5949223959782515, +1.7776397421430674, +1.1064799127736580, +1.5214484899703136, +1.0387216636806560, +1.2443115444748787, +1.6044017489316493, +1.8492424119522606, +1.5176452851714461, +1.5372147654670003, +1.2853461975921419, +1.1959518633805959, +1.4289507492357696, +1.1239475531534373, +1.7580998162354546, +1.5140691993928985, +1.7817502033294557, +1.7181985964910529, +1.5077444709892420, +1.2906921490343664, +1.5424537740103104, +1.0988340259134692, +1.8848757383792605, +1.8565143807100206, +1.4736626541310740, +1.2224916808712805, +1.6966938548767700, +1.7352884208773847, +1.7943139466615843, +1.8135990160535382, +1.7742874398609287, +1.4638128358211828, +1.9362410103184242, +1.9177141914624702, +1.3644522880840819, +1.8730813729796978, +1.0049197023426897, +1.6810637513753961, +1.7544886015572170, +1.7402161260251825, +1.4900254612768589, +1.8324409008169893, +1.7783396771996849, +1.0093099381655244, +1.5341929971396753, +1.4438571733082082, +1.4247564070741063, +1.6630916692139186, +1.1500344678623662, +1.2221092205782640, +1.6654374909907721, +1.9665502189420387, +1.4567979931057158

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+7

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.94563134613985551270714613027190997, +1.65672163222407664509732658540634936, +1.75572490409279026555338363124629254, +1.87348243830743169517995082999477307, +1.24711240486821120384983767559594310, +1.32102223645106896475545015251217580, +1.18371940533005281505307907220848505

194

195adat = getFFTR(getFFTF(data)) / size(data)

196adat

197+1.94563134613985551270714613027190997, +1.65672163222407664509732658540634936, +1.75572490409279026555338363124629293, +1.87348243830743169517995082999477327, +1.24711240486821120384983767559594291, +1.32102223645106896475545015251217580, +1.18371940533005281505307907220848505

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+15

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.37852263, +0.131357133), (+1.66069102, +0.699053288), (+1.96938324, +0.689159214), (+1.13683724, +0.408644319), (+1.58099043, +0.624996066), (+1.39682305, +0.655481637), (+1.36849999, +0.678506196), (+1.46205544, +0.360091388), (+1.96924734, +0.156867862), (+1.26052761, +0.862315893E-1), (+1.17575717, +0.824683845), (+1.04140258, +0.615232646), (+1.99008179, +0.891254783), (+1.98389912, +0.963143647), (+1.11714959, +0.718804300)

211

212adat = getFFTR(getFFTF(data)) / size(data)

213adat

214(+1.37852240, +0.131357059), (+1.66069102, +0.699053168), (+1.96938312, +0.689159214), (+1.13683724, +0.408644348), (+1.58099031, +0.624996126), (+1.39682281, +0.655481517), (+1.36850011, +0.678506196), (+1.46205544, +0.360091329), (+1.96924746, +0.156867951), (+1.26052773, +0.862316117E-1), (+1.17575681, +0.824683726), (+1.04140270, +0.615232587), (+1.99008179, +0.891254663), (+1.98389924, +0.963143706), (+1.11714959, +0.718804359)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+22

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.4624191290675115, +0.33767993001127461), (+1.3683925397229937, +0.72303030593864992), (+1.0360774456562156, +0.24813259540992849), (+1.3844145920756894, +0.91207836058233482), (+1.2846297712583832, +0.38167991685346347E-1), (+1.6397557522769179, +0.79987611507400636), (+1.8695826020422430, +0.41425309050676595), (+1.7093550525394083, +0.91763726713477101E-1), (+1.3435582641030113, +0.27868162144224595), (+1.3972063782184851, +0.86159276111407213), (+1.0120436854803148, +0.77153159512333969), (+1.4654130842534734, +0.57034125539454383), (+1.3638024823510337, +0.27591642272150996), (+1.6655885328344062, +0.91002969100818287E-1), (+1.1983574504286820, +0.64653379711766545), (+1.2888783408938922, +0.20606714469533216E-1), (+1.3264390743032775, +0.66757483589126410), (+1.7083945001616510, +0.12147245295237508), (+1.2744185980047891, +0.17246826859574738), (+1.2434381501228131, +0.19655183964105738), (+1.2203536137261928, +0.15539504950532768), (+1.4303920530124570, +0.36369761545464141)

228

229adat = getFFTR(getFFTF(data)) / size(data)

230adat

231(+1.4624191290675113, +0.33767993001127466), (+1.3683925397229939, +0.72303030593865003), (+1.0360774456562156, +0.24813259540992866), (+1.3844145920756892, +0.91207836058233482), (+1.2846297712583832, +0.38167991685346396E-1), (+1.6397557522769175, +0.79987611507400624), (+1.8695826020422430, +0.41425309050676601), (+1.7093550525394086, +0.91763726713477253E-1), (+1.3435582641030115, +0.27868162144224590), (+1.3972063782184849, +0.86159276111407235), (+1.0120436854803148, +0.77153159512333991), (+1.4654130842534727, +0.57034125539454383), (+1.3638024823510340, +0.27591642272150985), (+1.6655885328344058, +0.91002969100818648E-1), (+1.1983574504286820, +0.64653379711766545), (+1.2888783408938920, +0.20606714469533216E-1), (+1.3264390743032772, +0.66757483589126398), (+1.7083945001616507, +0.12147245295237513), (+1.2744185980047893, +0.17246826859574743), (+1.2434381501228131, +0.19655183964105730), (+1.2203536137261928, +0.15539504950532776), (+1.4303920530124570, +0.36369761545464135)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+49

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.26141745212751146499561166301061459, +0.270193579048821666669375293897072789), (+1.87976539870868982765365415349233509, +0.492244173310995878387303428973626873), (+1.65628173776711388742087679376966602, +0.370821225045902685704208111052183867), (+1.91840684313725800050023706945449430, +0.408286881943097712933282904959783763), (+1.77300860973253981001698105521958106, +0.462540681586863801485719078809808392E-1), (+1.34569328331763582140434568287260545, +0.382056483479842524990275116753204180), (+1.67615498763234360068139192835662350, +0.727986115066558196384004853917225694), (+1.04838549858549145241293920597163447, +0.271624649416908059053023122898732190), (+1.75697744196692928491663328579402800, +0.711867597177186807699185386700601849), (+1.75896166635403024483581619216608009, +0.657053481747338810220023391124137773), (+1.97832704861596895327797900862896286, +0.475639096329496846764636980417484927), (+1.61194942061175062018111088594438513, +0.608945433194108355603155407297542694), (+1.98929473905244485941318310645318809, +0.313084713191443557318291673247139320), (+1.84170894143407636406655800667764941, +0.456027116647976375197184455219270575), (+1.62155840382863611584432068908611758, +0.152965263196427456804036886834363155), (+1.24578747099722413529633557656393604, +0.139206875484948145223773645253715220), (+1.09562658906123818430187423445076728, +0.226007623841950315388051474934990444), (+1.24037727590052449835553459363940031, +0.256225811360974922819018779662944619), (+1.77747782700609697650424861425894088, +0.515384334711712515565188534939659038), (+1.95426867046008381351634046135328062, +0.649534706988645446638326009006007122), (+1.88357786471127930981668758095323093, +0.184895380719917563520630797391598950), (+1.67083923976373154949655320148318847, +0.342790652179591220211734288041688592E-1), (+1.25170800575687071114318025085332342, +0.247787024565061677121829304321984549), (+1.40209925310635802589396962061251476, +0.862230355605742839483509934287194224), (+1.82901015459042640570067865844200868, +0.416075311913349975850649509371860957), (+1.43867228605484489980795069526300743, +0.642595824035380031341245234024864630E-1), (+1.76292189191539773930164463647174498, +0.424055255223669095567418284544549238), (+1.72948374155767038317941998268123162, +0.947134389872444077944026690158101557), (+1.68502832426799230158789375544765369, +0.937850233168209947226915073722973147), (+1.54877926910283541425956164677848911, +0.397941757745920025979915654046111949), (+1.30166720808168619687391774141898055, +0.272446328974210260390308327786922409), (+1.66275053644422446891500275507449517, +0.371463238658349850467083455243717406), (+1.34685634628672055376740418949802369, +0.153339235083062761211314515745218220), (+1.05736269865886421363745351763687824, +0.389403922357633087500808975030010459), (+1.74201663988816446060567927699097362, +0.537787913042723589253166987506073050), (+1.40292823285157304721850840902036067, +0.976890962946945002556651396297774826), (+1.02188271788716994642991370537070352, +0.448093377797515803264496775498884666), (+1.18609131675440279634377654819455280, +0.103153262324558905240219290711034808), (+1.17505823576797652207177243147295174, +0.679649786936140433704769946402508691), (+1.83290189390030768501034334658724819, +0.240239176817301949607196052506618649), (+1.80645291494730689373125314692160639, +0.921122349745505421229072938928210067), (+1.93955103200145708064612134703392845, +0.903259645920691138803171164467543026), (+1.08359385248120190987063592083036601, +0.785749893943835289253793624296566713), (+1.71980028996385151784977107552377398, +0.435366634785481414162938641793781829), (+1.68657968995940989833541747504057692, +0.989893138307910210267706796089771929), (+1.68257707442080342541466290434884846, +0.929475344391368913005623634061405240), (+1.98127072613205679414747581530100738, +0.401161658962500708210436285459457755), (+1.52591258770765196012450696489649903, +0.717079890256375139745647891579781631), (+1.62107080390739452030451249374491232, +0.253819622421234814733722670161043845)

245

246adat = getFFTR(getFFTF(data)) / size(data)

247adat

248(+1.26141745212751146499561166301061479, +0.270193579048821666669375293897072886), (+1.87976539870868982765365415349233547, +0.492244173310995878387303428973626825), (+1.65628173776711388742087679376966622, +0.370821225045902685704208111052184060), (+1.91840684313725800050023706945449430, +0.408286881943097712933282904959783859), (+1.77300860973253981001698105521958106, +0.462540681586863801485719078809808994E-1), (+1.34569328331763582140434568287260584, +0.382056483479842524990275116753204373), (+1.67615498763234360068139192835662369, +0.727986115066558196384004853917225790), (+1.04838549858549145241293920597163466, +0.271624649416908059053023122898732286), (+1.75697744196692928491663328579402781, +0.711867597177186807699185386700601753), (+1.75896166635403024483581619216608009, +0.657053481747338810220023391124137965), (+1.97832704861596895327797900862896266, +0.475639096329496846764636980417484831), (+1.61194942061175062018111088594438513, +0.608945433194108355603155407297542791), (+1.98929473905244485941318310645318809, +0.313084713191443557318291673247139609), (+1.84170894143407636406655800667764961, +0.456027116647976375197184455219270672), (+1.62155840382863611584432068908611758, +0.152965263196427456804036886834363227), (+1.24578747099722413529633557656393604, +0.139206875484948145223773645253715292), (+1.09562658906123818430187423445076748, +0.226007623841950315388051474934990685), (+1.24037727590052449835553459363940012, +0.256225811360974922819018779662944571), (+1.77747782700609697650424861425894088, +0.515384334711712515565188534939659134), (+1.95426867046008381351634046135328081, +0.649534706988645446638326009006007314), (+1.88357786471127930981668758095323093, +0.184895380719917563520630797391599022), (+1.67083923976373154949655320148318847, +0.342790652179591220211734288041688652E-1), (+1.25170800575687071114318025085332323, +0.247787024565061677121829304321984549), (+1.40209925310635802589396962061251457, +0.862230355605742839483509934287194512), (+1.82901015459042640570067865844200848, +0.416075311913349975850649509371861005), (+1.43867228605484489980795069526300704, +0.642595824035380031341245234024864389E-1), (+1.76292189191539773930164463647174498, +0.424055255223669095567418284544549383), (+1.72948374155767038317941998268123182, +0.947134389872444077944026690158101268), (+1.68502832426799230158789375544765350, +0.937850233168209947226915073722973243), (+1.54877926910283541425956164677848873, +0.397941757745920025979915654046111997), (+1.30166720808168619687391774141898035, +0.272446328974210260390308327786922553), (+1.66275053644422446891500275507449478, +0.371463238658349850467083455243717454), (+1.34685634628672055376740418949802331, +0.153339235083062761211314515745218172), (+1.05736269865886421363745351763687824, +0.389403922357633087500808975030010556), (+1.74201663988816446060567927699097381, +0.537787913042723589253166987506072858), (+1.40292823285157304721850840902036048, +0.976890962946945002556651396297775114), (+1.02188271788716994642991370537070352, +0.448093377797515803264496775498884762), (+1.18609131675440279634377654819455299, +0.103153262324558905240219290711034844), (+1.17505823576797652207177243147295155, +0.679649786936140433704769946402508884), (+1.83290189390030768501034334658724819, +0.240239176817301949607196052506618697), (+1.80645291494730689373125314692160677, +0.921122349745505421229072938928210260), (+1.93955103200145708064612134703392883, +0.903259645920691138803171164467543026), (+1.08359385248120190987063592083036620, +0.785749893943835289253793624296566809), (+1.71980028996385151784977107552377398, +0.435366634785481414162938641793781829), (+1.68657968995940989833541747504057673, +0.989893138307910210267706796089772121), (+1.68257707442080342541466290434884827, +0.929475344391368913005623634061405240), (+1.98127072613205679414747581530100738, +0.401161658962500708210436285459457851), (+1.52591258770765196012450696489649922, +0.717079890256375139745647891579781920), (+1.62107080390739452030451249374491251, +0.253819622421234814733722670161043941)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+23

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.63238835, +1.10010052, +1.34274590, +1.52199507, +1.26695490, +1.69913971, +1.30457699, +1.85280490, +1.87347794, +1.29985452, +1.62767482, +1.06319380, +1.62666988, +1.65851676, +1.41528165, +1.97738481, +1.76453638, +1.13331807, +1.50501049, +1.49148452, +1.02014422, +1.55399323, +1.88683081

262

263adat = getFFTR(getFFTF(data)) / size(data)

264adat

265+1.63238811, +1.10010016, +1.34274566, +1.52199519, +1.26695478, +1.69913912, +1.30457664, +1.85280442, +1.87347674, +1.29985547, +1.62767291, +1.06319690, +1.62667048, +1.65851593, +1.41528201, +1.97738385, +1.76453602, +1.13331783, +1.50501025, +1.49148405, +1.02014470, +1.55399275, +1.88683033

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+82

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.1282206341417416, +1.4981265635013088, +1.3117232474919089, +1.3170852288476769, +1.2659908986690116, +1.7473829817361677, +1.9848650247104136, +1.9015178403513895, +1.7811594420080832, +1.3550601101046627, +1.4943421194830644, +1.5324459802989603, +1.4270905939787970, +1.4675507608162257, +1.4014112138065746, +1.2250984217244090, +1.1479294701837350, +1.4252939162519280, +1.4457191034866921, +1.7101444244787412, +1.6273040362791615, +1.6165610332787788, +1.9285021053203371, +1.5292317483100692, +1.8313753762486589, +1.3931947034486041, +1.0286090371122563, +1.7594545528338523, +1.1547937486951185, +1.4184336711078576, +1.1347417988788180, +1.3664610280530292, +1.3903351176059493, +1.2125469089170346, +1.5065591492981412, +1.7419351795272742, +1.5102193007885627, +1.4590609334448332, +1.8993242381188538, +1.2260795733172296, +1.3026327626049194, +1.2522055902681599, +1.5669693015612602, +1.5747324568346395, +1.9206782204513542, +1.8031149309985488, +1.3234871766406990, +1.8824811338354135, +1.3429377884575135, +1.0811461921616590, +1.3680280039113253, +1.5982499938410450, +1.2558886781937606, +1.5836885219112955, +1.2105220174648426, +1.2621564988518446, +1.4777061659095039, +1.3399201767078586, +1.1587520426560192, +1.8726884525496912, +1.6694923178175776, +1.0918133259210809, +1.0503881018184238, +1.2343938838679342, +1.0515927114202093, +1.4335801741352863, +1.8021711369303359, +1.7840678366703431, +1.8888786705612932, +1.7840519934399737, +1.3668355502155940, +1.8389121272661741, +1.6280974514874114, +1.8153681907711976, +1.5069333678052557, +1.5800209489114110, +1.0372389624660301, +1.7951426833817246, +1.8580945124666641, +1.2399336730651072, +1.4997502924748904, +1.2637797809404330

279

280adat = getFFTR(getFFTF(data)) / size(data)

281adat

282+1.1282206341417413, +1.4981265635013084, +1.3117232474919094, +1.3170852288476771, +1.2659908986690109, +1.7473829817361675, +1.9848650247104154, +1.9015178403513904, +1.7811594420080834, +1.3550601101046613, +1.4943421194830644, +1.5324459802989603, +1.4270905939787966, +1.4675507608162262, +1.4014112138065753, +1.2250984217244083, +1.1479294701837337, +1.4252939162519283, +1.4457191034866914, +1.7101444244787427, +1.6273040362791618, +1.6165610332787790, +1.9285021053203388, +1.5292317483100701, +1.8313753762486611, +1.3931947034486032, +1.0286090371122543, +1.7594545528338543, +1.1547937486951181, +1.4184336711078571, +1.1347417988788169, +1.3664610280530292, +1.3903351176059484, +1.2125469089170331, +1.5065591492981414, +1.7419351795272759, +1.5102193007885620, +1.4590609334448321, +1.8993242381188564, +1.2260795733172289, +1.3026327626049157, +1.2522055902681555, +1.5669693015612587, +1.5747324568346381, +1.9206782204513571, +1.8031149309985510, +1.3234871766406975, +1.8824811338354148, +1.3429377884575129, +1.0811461921616561, +1.3680280039113246, +1.5982499938410464, +1.2558886781937606, +1.5836885219112966, +1.2105220174648421, +1.2621564988518439, +1.4777061659095045, +1.3399201767078581, +1.1587520426560185, +1.8726884525496938, +1.6694923178175796, +1.0918133259210794, +1.0503881018184213, +1.2343938838679329, +1.0515927114202073, +1.4335801741352856, +1.8021711369303366, +1.7840678366703451, +1.8888786705612952, +1.7840519934399741, +1.3668355502155929, +1.8389121272661746, +1.6280974514874116, +1.8153681907711974, +1.5069333678052557, +1.5800209489114103, +1.0372389624660299, +1.7951426833817252, +1.8580945124666648, +1.2399336730651065, +1.4997502924748913, +1.2637797809404330

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+32

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.30886685890659753970129847013123963, +1.95693530227592855928980578011435430, +1.75716977270627372432083272489831445, +1.06945836570509169185051964238508250, +1.52821618936616958780351119717098777, +1.00962497403220184098454463182286890, +1.52178269205096960825122494804740630, +1.13672663827588252909099694579932732, +1.26896686879606751614515524038279360, +1.40537890495889752922334675857030582, +1.23195063743484743631768408581069384, +1.46163110054742170361777078441042332, +1.37642458350677367696330764719093320, +1.16360783028263510682305519369277487, +1.41136112639786525533251726861366215, +1.15217725171156494233069720627939175, +1.36890377906745444370326610788037512, +1.83510474241015919293416487810488607, +1.55141080594042756690433896398551979, +1.80245097689661939642420988022799707, +1.58737929323273464205418350168237933, +1.75367333709532582161036300493639920, +1.34915366856050043198288811237773765, +1.81705527981917602430061753447960874, +1.07851932352127043516491140992945179, +1.56740871198113916270042885679316923, +1.13144001074699194698008742506696155, +1.73543688676696321196109565803705220, +1.56155488165995640006651963805941235, +1.20606177926595282479957608503137351, +1.00273241769447914795067566278546431, +1.14005681076207933996553806190022426

296

297adat = getFFTR(getFFTF(data)) / size(data)

298adat

299+1.30886685890659753970129847013123963, +1.95693530227592855928980578011435450, +1.75716977270627372432083272489831426, +1.06945836570509169185051964238508269, +1.52821618936616958780351119717098739, +1.00962497403220184098454463182286909, +1.52178269205096960825122494804740630, +1.13672663827588252909099694579932732, +1.26896686879606751614515524038279360, +1.40537890495889752922334675857030601, +1.23195063743484743631768408581069365, +1.46163110054742170361777078441042351, +1.37642458350677367696330764719093301, +1.16360783028263510682305519369277507, +1.41136112639786525533251726861366215, +1.15217725171156494233069720627939175, +1.36890377906745444370326610788037493, +1.83510474241015919293416487810488627, +1.55141080594042756690433896398551960, +1.80245097689661939642420988022799726, +1.58737929323273464205418350168237894, +1.75367333709532582161036300493639939, +1.34915366856050043198288811237773745, +1.81705527981917602430061753447960874, +1.07851932352127043516491140992945160, +1.56740871198113916270042885679316942, +1.13144001074699194698008742506696135, +1.73543688676696321196109565803705240, +1.56155488165995640006651963805941216, +1.20606177926595282479957608503137370, +1.00273241769447914795067566278546431, +1.14005681076207933996553806190022426

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+85

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.67684531, +0.743134260), (+1.57468295, +0.945231318E-1), (+1.44352031, +0.209801555), (+1.40712762, +0.920994282E-1), (+1.18834829, +0.365385771), (+1.64473224, +0.639882386), (+1.49918866, +0.729367256), (+1.76132655, +0.525147915), (+1.03432536, +0.575687647), (+1.77720833, +0.432832241), (+1.03728366, +0.411926806), (+1.00360584, +0.666676700), (+1.92551625, +0.895602703), (+1.59061122, +0.318094850), (+1.10183203, +0.404761195), (+1.78178442, +0.221833825), (+1.89400268, +0.886107385), (+1.40440094, +0.527865291E-1), (+1.78086853, +0.767716110), (+1.75091052, +0.251515269), (+1.35312533, +0.686233461), (+1.57444274, +0.488856554), (+1.16593790, +0.413945138), (+1.38180614, +0.871853650), (+1.37491250, +0.576714218), (+1.25945270, +0.996342123), (+1.56657863, +0.146262884), (+1.78743434, +0.311984718), (+1.67340493, +0.423856974E-1), (+1.63240004, +0.401782453), (+1.60262299, +0.452172816), (+1.54695082, +0.466386676), (+1.05761361, +0.832136333), (+1.75745940, +0.850991607), (+1.34414196, +0.234994709), (+1.19663644, +0.279346228), (+1.81938672, +0.802330256), (+1.67819011, +0.351861894), (+1.00505543, +0.224505663E-1), (+1.00947070, +0.864856362), (+1.06957078, +0.915652215), (+1.88031721, +0.606290281), (+1.00186777, +0.756066859), (+1.26356363, +0.130040646E-1), (+1.66729403, +0.826314628), (+1.87193561, +0.648518801), (+1.60278928, +0.731860280), (+1.70026565, +0.129804075), (+1.05330467, +0.822949946), (+1.10259581, +0.294726372), (+1.77017534, +0.211332321), (+1.09816515, +0.553624034), (+1.67595565, +0.589802802), (+1.34041643, +0.443953931), (+1.64610934, +0.937873423), (+1.49575067, +0.962249517), (+1.25015259, +0.226022840), (+1.92367053, +0.171996295), (+1.33548558, +0.383257866), (+1.86300659, +0.999059021), (+1.30247509, +0.929941773), (+1.22945023, +0.751760960), (+1.34085727, +0.445336103E-2), (+1.63578320, +0.518110275), (+1.57172465, +0.165834963), (+1.52363515, +0.670377791), (+1.54462290, +0.276772082), (+1.60903025, +0.737029612), (+1.88383114, +0.445143402), (+1.96316361, +0.349708140), (+1.99982929, +0.527573168), (+1.46679139, +0.890133500), (+1.51840711, +0.663468778), (+1.45858049, +0.804498196E-1), (+1.92670560, +0.427749991), (+1.67544365, +0.203338027), (+1.35440385, +0.197712779E-1), (+1.80771589, +0.841015577), (+1.28355837, +0.779917717), (+1.83011258, +0.475179672), (+1.45355988, +0.769606292), (+1.16596782, +0.579484880), (+1.64477587, +0.951707125), (+1.21431088, +0.894096673), (+1.36198199, +0.230483055)

313

314adat = getFFTR(getFFTF(data)) / size(data)

315adat

316(+1.67684615, +0.743134737), (+1.57468247, +0.945227891E-1), (+1.44351983, +0.209801376), (+1.40712738, +0.920990631E-1), (+1.18834805, +0.365385354), (+1.64473212, +0.639882147), (+1.49918830, +0.729367375), (+1.76132631, +0.525148034), (+1.03432596, +0.575687885), (+1.77720881, +0.432832479), (+1.03728342, +0.411926687), (+1.00360584, +0.666676700), (+1.92551649, +0.895602226), (+1.59061098, +0.318094552), (+1.10183191, +0.404760778), (+1.78178430, +0.221833751), (+1.89400256, +0.886107028), (+1.40440202, +0.527866818E-1), (+1.78086853, +0.767715752), (+1.75091064, +0.251515120), (+1.35312545, +0.686233580), (+1.57444263, +0.488856316), (+1.16593814, +0.413944930), (+1.38180637, +0.871853530), (+1.37491214, +0.576714218), (+1.25945377, +0.996342301), (+1.56657910, +0.146263286), (+1.78743410, +0.311984628), (+1.67340517, +0.423857085E-1), (+1.63240027, +0.401782304), (+1.60262311, +0.452172667), (+1.54695070, +0.466386586), (+1.05761337, +0.832136273), (+1.75745904, +0.850991309), (+1.34414315, +0.234995231), (+1.19663632, +0.279345989), (+1.81938660, +0.802330196), (+1.67819011, +0.351861984), (+1.00505543, +0.224501882E-1), (+1.00947082, +0.864856064), (+1.06957114, +0.915652394), (+1.88031685, +0.606290102), (+1.00186861, +0.756067097), (+1.26356435, +0.130046168E-1), (+1.66729414, +0.826314569), (+1.87193573, +0.648518920), (+1.60278928, +0.731860101), (+1.70026529, +0.129804030), (+1.05330455, +0.822949648), (+1.10259557, +0.294726104), (+1.77017534, +0.211332142), (+1.09816647, +0.553624451), (+1.67595518, +0.589802802), (+1.34041631, +0.443953663), (+1.64610887, +0.937873125), (+1.49575078, +0.962249398), (+1.25015295, +0.226022810), (+1.92367029, +0.171996400), (+1.33548534, +0.383257598), (+1.86300731, +0.999059618), (+1.30247629, +0.929942489), (+1.22945023, +0.751760840), (+1.34085751, +0.445323251E-2), (+1.63578308, +0.518110275), (+1.57172453, +0.165835008), (+1.52363527, +0.670377791), (+1.54462302, +0.276771873), (+1.60902977, +0.737029135), (+1.88383269, +0.445143759), (+1.96316314, +0.349708229), (+1.99982941, +0.527573109), (+1.46679163, +0.890133381), (+1.51840675, +0.663468599), (+1.45858109, +0.804498121E-1), (+1.92670596, +0.427750051), (+1.67544377, +0.203338087), (+1.35440469, +0.197715536E-1), (+1.80771685, +0.841015637), (+1.28355849, +0.779917300), (+1.83011317, +0.475179642), (+1.45355988, +0.769606173), (+1.16596794, +0.579484880), (+1.64477575, +0.951707125), (+1.21431088, +0.894096673), (+1.36198199, +0.230482712)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+63

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.5973448446540617, +0.52934708461616187), (+1.0239807654468445, +0.85995410040569287), (+1.3794990389853352, +0.69850273222859371), (+1.0694238693267284, +0.70837668424516309), (+1.8464089921879521, +0.20686802907307511E-1), (+1.3507769923849993, +0.72381957070299885), (+1.8269814500463335, +0.28132148650206545), (+1.5448195031618133, +0.28757966898591336E-1), (+1.2619653600088152, +0.16771376627841783), (+1.5561974966182481, +0.91444431582533225), (+1.4673641141178106, +0.36596894556396764), (+1.1993178759070893, +0.16805835630876642), (+1.4567870760998776, +0.84391988197855905), (+1.6206672653472194, +0.43653604173792870), (+1.8051643084241440, +0.55771902910778781), (+1.7117155363029963, +0.92025505994317314), (+1.8323239810771219, +0.10667581123238623), (+1.5551870799192087, +0.82465954772991601), (+1.0437441626381396, +0.67264655184804423), (+1.7720262746087871, +0.92488071539452443), (+1.4443503882318178, +0.41381606717537300), (+1.0309839416880626, +0.60148307073912533), (+1.1732769478680281, +0.22177554162331536), (+1.9868740410543502, +0.17076597062268051E-1), (+1.7289549816141732, +0.83564091858242939), (+1.9628538454926319, +0.19969322710756576E-1), (+1.5220346436378911, +0.23783761616499910), (+1.7691881408591119, +0.37598395912326477), (+1.3264959989624243, +0.58563239183083493), (+1.9077644025721221, +0.17891816077976164), (+1.8233128081149166, +0.93462541062250959), (+1.0765556961038645, +0.26737855583474757), (+1.1689678601511257, +0.78544423452725332), (+1.8582656392317336, +0.99873072747482960), (+1.6885881173898887, +0.25258440615624667), (+1.6890835167241267, +0.20410106136205197), (+1.5982761409427946, +0.71702854131615146E-1), (+1.6350790506469828, +0.97272968176902452E-1), (+1.5640834852386278, +0.41745051178307613), (+1.7992569363523709, +0.71861322866201582), (+1.0544999745982027, +0.52427774151830464), (+1.1021628362131790, +0.25778038527349301), (+1.0632184333571830, +0.72651972387893504), (+1.6800237270546035, +0.78918484681245971), (+1.6183390594289324, +0.25358002523205148), (+1.4992528110238275, +0.61401353143592008), (+1.1118412027500377, +0.91176290795809001), (+1.1977841608010382, +0.60139170864158631), (+1.5876427515487217, +0.44923271146234323), (+1.5181060613702615, +0.41016074315674866), (+1.6010834711796638, +0.47180149753256129), (+1.9687526724861735, +0.99724365823789629), (+1.5820691578003010, +0.19448723921918942), (+1.1228190998337517, +0.76316092546869918), (+1.8250488756514778, +0.17463111357028649), (+1.2895736952126844, +0.92305429884427381), (+1.1862223579164572, +0.45265532782287876), (+1.3749777153037259, +0.94356931234638408), (+1.2993257058096033, +0.19603057514421485E-1), (+1.1775306881255054, +0.88514018811677631), (+1.4209607837490239, +0.22319398043909866), (+1.9385716782975080, +0.33696951222760396), (+1.6653890467108603, +0.92147666356182578)

330

331adat = getFFTR(getFFTF(data)) / size(data)

332adat

333(+1.5973448446540619, +0.52934708461616187), (+1.0239807654468449, +0.85995410040569309), (+1.3794990389853354, +0.69850273222859394), (+1.0694238693267284, +0.70837668424516298), (+1.8464089921879523, +0.20686802907307345E-1), (+1.3507769923849995, +0.72381957070299863), (+1.8269814500463335, +0.28132148650206568), (+1.5448195031618133, +0.28757966898591270E-1), (+1.2619653600088154, +0.16771376627841783), (+1.5561974966182488, +0.91444431582533237), (+1.4673641141178109, +0.36596894556396747), (+1.1993178759070893, +0.16805835630876637), (+1.4567870760998776, +0.84391988197855905), (+1.6206672653472201, +0.43653604173792870), (+1.8051643084241438, +0.55771902910778770), (+1.7117155363029968, +0.92025505994317292), (+1.8323239810771221, +0.10667581123238633), (+1.5551870799192085, +0.82465954772991579), (+1.0437441626381398, +0.67264655184804412), (+1.7720262746087871, +0.92488071539452399), (+1.4443503882318178, +0.41381606717537323), (+1.0309839416880628, +0.60148307073912510), (+1.1732769478680285, +0.22177554162331536), (+1.9868740410543506, +0.17076597062268030E-1), (+1.7289549816141732, +0.83564091858242928), (+1.9628538454926319, +0.19969322710756691E-1), (+1.5220346436378915, +0.23783761616499921), (+1.7691881408591119, +0.37598395912326493), (+1.3264959989624245, +0.58563239183083493), (+1.9077644025721223, +0.17891816077976172), (+1.8233128081149168, +0.93462541062250959), (+1.0765556961038651, +0.26737855583474723), (+1.1689678601511260, +0.78544423452725332), (+1.8582656392317336, +0.99873072747482949), (+1.6885881173898885, +0.25258440615624678), (+1.6890835167241265, +0.20410106136205189), (+1.5982761409427948, +0.71702854131615396E-1), (+1.6350790506469832, +0.97272968176902286E-1), (+1.5640834852386274, +0.41745051178307607), (+1.7992569363523709, +0.71861322866201571), (+1.0544999745982029, +0.52427774151830464), (+1.1021628362131792, +0.25778038527349295), (+1.0632184333571832, +0.72651972387893515), (+1.6800237270546035, +0.78918484681245960), (+1.6183390594289331, +0.25358002523205148), (+1.4992528110238272, +0.61401353143592008), (+1.1118412027500379, +0.91176290795808979), (+1.1977841608010387, +0.60139170864158609), (+1.5876427515487219, +0.44923271146234334), (+1.5181060613702615, +0.41016074315674861), (+1.6010834711796638, +0.47180149753256140), (+1.9687526724861735, +0.99724365823789629), (+1.5820691578003012, +0.19448723921918926), (+1.1228190998337519, +0.76316092546869929), (+1.8250488756514780, +0.17463111357028652), (+1.2895736952126846, +0.92305429884427370), (+1.1862223579164572, +0.45265532782287882), (+1.3749777153037261, +0.94356931234638419), (+1.2993257058096035, +0.19603057514421398E-1), (+1.1775306881255052, +0.88514018811677608), (+1.4209607837490239, +0.22319398043909849), (+1.9385716782975075, +0.33696951222760396), (+1.6653890467108603, +0.92147666356182578)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+38

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.23808299951004480688627133557393624, +0.455440150978862796392916942612866348), (+1.70019932662573271006570024323039497, +0.478627980962142992417754946689241720), (+1.97949753463836929659500718569071944, +0.214605711170251449317293563811203438), (+1.06540171390538774619312940691416135, +0.954597613746365399129708671538240996), (+1.41624711232115161363528461950143343, +0.274882276142611887881528978618796170), (+1.89435744213513298064608667376226452, +0.657681866775492596905304082718875920), (+1.73654636925428965793477428956848469, +0.558570559193869785193702371196349724), (+1.99865896413724962697098135968031410, +0.994158838677635668900298398336943608), (+1.57895086934793003635664526730546314, +0.280424111635027201964755357938228194), (+1.06854037692212383907813652874974508, +0.667438093318798751166731164759801147), (+1.03521448660856235969083461042084519, +0.271240946494061205139126787251050982), (+1.00234059395629299358325842849568184, +0.995756810209856585614110813225880172), (+1.66428684707351723840731342471114657, +0.936018315929191209096737452529355331), (+1.72016215212234053097232182451946482, +0.358318845953576399874330675723987832E-2), (+1.76540257509114026592460120495898571, +0.499672352817144509408559420390743600), (+1.94556348194093527788359248947111388, +0.211770807640048126219282330428333540), (+1.96469614020006561286094898863571765, +0.506836008505839845017139580160379618), (+1.01041115934651078830277190015185586, +0.504433245257367282105791143718936926), (+1.24119448303856593025698001730447786, +0.672220639087450723793126862829037654E-2), (+1.43971954981241854625581791759044787, +0.694641563225487519916627187156725866), (+1.60870258735757320428214058844007103, +0.274838296701217999231811643021938440), (+1.36590614835346100172910190468512396, +0.180923839988443685644403965165210010), (+1.76201712330634322916723083469385336, +0.596282882630878079203619831265183262), (+1.70899976554402932633863329299456988, +0.864222137336272189228394022536707551E-1), (+1.53353430293801399955109872931589685, +0.969013467510740473635944102388840515E-1), (+1.90935951328236383714252225437646585, +0.234695025898672630688082698286735849), (+1.02230803378654855339536232984263072, +0.658952895669014097262927567179559898), (+1.91348316091113679477907538637621670, +0.189367977894251985870385642098235684), (+1.19023822142763549682950312499302267, +0.320550614289275491356159005821844514), (+1.09213062143384830834466835270369678, +0.207348912038422379465525828319258488), (+1.70018838321683551918414421258251689, +0.911884910359927799166839410426726976), (+1.23408513935295190628447922141463162, +0.550675339784660150874450393934674809E-1), (+1.57915770212051867968891406077092258, +0.878599938723003837730765037458033706), (+1.41737516760164125042815530630558695, +0.185584592988070072854024860086586261), (+1.73377953705466263456276200976977985, +0.810727084754123479300555883134595698), (+1.05516934121969316827821256667224892, +0.475051034296705840038249380239731042), (+1.52523328057411225390763393202799675, +0.246392659179912409112461429285162599), (+1.16814228816830023992027859529712229, +0.395144493798157763235520640109792853)

347

348adat = getFFTR(getFFTF(data)) / size(data)

349adat

350(+1.23808299951004480688627133557393527, +0.455440150978862796392916942612865963), (+1.70019932662573271006570024323039516, +0.478627980962142992417754946689241817), (+1.97949753463836929659500718569071905, +0.214605711170251449317293563811203679), (+1.06540171390538774619312940691416154, +0.954597613746365399129708671538241285), (+1.41624711232115161363528461950143363, +0.274882276142611887881528978618796122), (+1.89435744213513298064608667376226452, +0.657681866775492596905304082718875728), (+1.73654636925428965793477428956848469, +0.558570559193869785193702371196349821), (+1.99865896413724962697098135968031391, +0.994158838677635668900298398336943511), (+1.57895086934793003635664526730546333, +0.280424111635027201964755357938228146), (+1.06854037692212383907813652874974489, +0.667438093318798751166731164759801051), (+1.03521448660856235969083461042084519, +0.271240946494061205139126787251050886), (+1.00234059395629299358325842849568165, +0.995756810209856585614110813225880268), (+1.66428684707351723840731342471114619, +0.936018315929191209096737452529355524), (+1.72016215212234053097232182451946482, +0.358318845953576399874330675723994942E-2), (+1.76540257509114026592460120495898532, +0.499672352817144509408559420390743455), (+1.94556348194093527788359248947111407, +0.211770807640048126219282330428333395), (+1.96469614020006561286094898863571765, +0.506836008505839845017139580160379907), (+1.01041115934651078830277190015185586, +0.504433245257367282105791143718937022), (+1.24119448303856593025698001730447805, +0.672220639087450723793126862829072637E-2), (+1.43971954981241854625581791759044691, +0.694641563225487519916627187156725480), (+1.60870258735757320428214058844007103, +0.274838296701217999231811643021938633), (+1.36590614835346100172910190468512376, +0.180923839988443685644403965165210010), (+1.76201712330634322916723083469385374, +0.596282882630878079203619831265183455), (+1.70899976554402932633863329299456988, +0.864222137336272189228394022536706949E-1), (+1.53353430293801399955109872931589666, +0.969013467510740473635944102388838951E-1), (+1.90935951328236383714252225437646585, +0.234695025898672630688082698286735825), (+1.02230803378654855339536232984263014, +0.658952895669014097262927567179559898), (+1.91348316091113679477907538637621708, +0.189367977894251985870385642098235563), (+1.19023822142763549682950312499302267, +0.320550614289275491356159005821844754), (+1.09213062143384830834466835270369639, +0.207348912038422379465525828319258368), (+1.70018838321683551918414421258251689, +0.911884910359927799166839410426727072), (+1.23408513935295190628447922141463123, +0.550675339784660150874450393934673305E-1), (+1.57915770212051867968891406077092238, +0.878599938723003837730765037458033706), (+1.41737516760164125042815530630558656, +0.185584592988070072854024860086586261), (+1.73377953705466263456276200976977966, +0.810727084754123479300555883134595698), (+1.05516934121969316827821256667224930, +0.475051034296705840038249380239731090), (+1.52523328057411225390763393202799656, +0.246392659179912409112461429285162767), (+1.16814228816830023992027859529712267, +0.395144493798157763235520640109792998)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+63

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.57000136, +1.75047588, +1.06070197, +1.93194652, +1.35083711, +1.69608831, +1.64082789, +1.98797154, +1.91117096, +1.89828181, +1.07157445, +1.74188185, +1.08807862, +1.23148155, +1.25583124, +1.40622044, +1.94850659, +1.36907542, +1.61859334, +1.56799603, +1.95848870, +1.37856650, +1.34220672, +1.26626170, +1.71852219, +1.68849897, +1.47571707, +1.77391529, +1.06728578, +1.32194209, +1.57327330, +1.42112112, +1.33851767, +1.73257136, +1.65215600, +1.73732078, +1.06649566, +1.50140655, +1.43561935, +1.39184403, +1.52239597, +1.63526440, +1.06067443, +1.08879018, +1.64953327, +1.12984025, +1.31856155, +1.15158498, +1.82209957, +1.97898173, +1.67200994, +1.88011932, +1.56641614, +1.64713907, +1.76807809, +1.52935052, +1.92571020, +1.63846755, +1.81240308, +1.68481231, +1.10882640, +1.74769962, +1.36744678

364

365adat = getFFTR(getFFTF(data)) / size(data)

366adat

367+1.57000113, +1.75047588, +1.06070209, +1.93194640, +1.35083723, +1.69608867, +1.64082778, +1.98797178, +1.91117132, +1.89828181, +1.07157469, +1.74188197, +1.08807862, +1.23148179, +1.25583148, +1.40622020, +1.94850671, +1.36907554, +1.61859322, +1.56799603, +1.95848870, +1.37856627, +1.34220695, +1.26626194, +1.71852195, +1.68849909, +1.47571707, +1.77391529, +1.06728601, +1.32194245, +1.57327318, +1.42112136, +1.33851790, +1.73257124, +1.65215588, +1.73732090, +1.06649578, +1.50140655, +1.43561971, +1.39184403, +1.52239621, +1.63526475, +1.06067443, +1.08879030, +1.64953351, +1.12984014, +1.31856167, +1.15158510, +1.82209933, +1.97898185, +1.67201018, +1.88011909, +1.56641614, +1.64713919, +1.76807809, +1.52935076, +1.92571044, +1.63846743, +1.81240320, +1.68481255, +1.10882616, +1.74769986, +1.36744702

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+5

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.7529858847420385, +1.0915638801304128, +1.9697703861047420, +1.6104312922927462, +1.0750678578786985

381

382adat = getFFTR(getFFTF(data)) / size(data)

383adat

384+1.7529858847420390, +1.0915638801304131, +1.9697703861047422, +1.6104312922927462, +1.0750678578786985

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+35

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.04510625391140555272516815678585574, +1.44400861602755819209631088052724989, +1.51995754441987885640317507495585695, +1.78523912988174031401457095500504421, +1.58882135647286882526536076660779034, +1.19841892753449526591324620024971255, +1.57438136766340810238946902136688595, +1.24597768211993418355483428735252268, +1.77418604843147762638982555970799331, +1.80715734607078304380246200823902200, +1.59124133109938616918809217355907412, +1.09473257052545660083823448509872250, +1.66552327288558872814286170399135283, +1.72738003192364040417926582033419140, +1.15913911296845836085941154478784494, +1.59338547775134689637501205540035805, +1.05763756154827217488011183320226350, +1.66582860438459031956828538853487761, +1.37176161470883939931589939494387279, +1.85769082426905035690089181456003511, +1.97491509747147304554859904813738681, +1.90202733054162917064668278416818401, +1.77167555215018983542350784772517382, +1.47822241122514908763326011077026493, +1.54465769269896350003393921399813195, +1.75430041691879105980964318359851099, +1.80110300772414865344779086634029658, +1.97737143294374909787893936725993160, +1.10875498811344123602349036134815652, +1.44117889479841282898160164176102572, +1.27789038031493728795832087383560007, +1.49501897944937759258613737736677012, +1.63353411961050927462226258293731947, +1.70373670898019177759910353366168403, +1.14685259735141872419306403076422136

398

399adat = getFFTR(getFFTF(data)) / size(data)

400adat

401+1.04510625391140555272516815678585555, +1.44400861602755819209631088052725009, +1.51995754441987885640317507495585714, +1.78523912988174031401457095500504421, +1.58882135647286882526536076660779015, +1.19841892753449526591324620024971236, +1.57438136766340810238946902136688634, +1.24597768211993418355483428735252268, +1.77418604843147762638982555970799331, +1.80715734607078304380246200823902162, +1.59124133109938616918809217355907412, +1.09473257052545660083823448509872250, +1.66552327288558872814286170399135302, +1.72738003192364040417926582033419159, +1.15913911296845836085941154478784455, +1.59338547775134689637501205540035786, +1.05763756154827217488011183320226350, +1.66582860438459031956828538853487781, +1.37176161470883939931589939494387298, +1.85769082426905035690089181456003530, +1.97491509747147304554859904813738681, +1.90202733054162917064668278416818420, +1.77167555215018983542350784772517420, +1.47822241122514908763326011077026512, +1.54465769269896350003393921399813195, +1.75430041691879105980964318359851118, +1.80110300772414865344779086634029678, +1.97737143294374909787893936725993160, +1.10875498811344123602349036134815691, +1.44117889479841282898160164176102553, +1.27789038031493728795832087383560007, +1.49501897944937759258613737736677031, +1.63353411961050927462226258293731966, +1.70373670898019177759910353366168422, +1.14685259735141872419306403076422098

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+88

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.32462656, +0.337222397), (+1.96816337, +0.867817283), (+1.77727795, +0.533308327), (+1.46724784, +0.757653892), (+1.95092034, +0.122431397), (+1.68192768, +0.290028691), (+1.01312518, +0.813372374), (+1.69212461, +0.444775462), (+1.65849626, +0.643337786), (+1.18830419, +0.392157495), (+1.41682911, +0.447541535), (+1.29054332, +0.482653916), (+1.93476582, +0.651804209E-1), (+1.08373082, +0.999149323), (+1.12411427, +0.168238640), (+1.45928907, +0.188669145), (+1.33667886, +0.509398580), (+1.34040022, +0.904375374), (+1.29222655, +0.431088805E-1), (+1.20974207, +0.591291964), (+1.04112196, +0.255408287E-1), (+1.35400677, +0.423518777), (+1.09872961, +0.789856434), (+1.40830922, +0.884050488), (+1.59235859, +0.373638690), (+1.25446904, +0.636257112), (+1.17283130, +0.139146090), (+1.66038036, +0.264660180), (+1.58528268, +0.662781060), (+1.31580830, +0.975185096), (+1.00381708, +0.503732085), (+1.81894922, +0.931352377), (+1.24916828, +0.715737581), (+1.90041530, +0.529409707), (+1.83108854, +0.526351213), (+1.72216988, +0.675449491), (+1.23322201, +0.923017204), (+1.57682276, +0.982245147), (+1.76365066, +0.952031612E-1), (+1.02558589, +0.922415614), (+1.25160229, +0.349410415), (+1.32123888, +0.148183286), (+1.38977242, +0.880879343), (+1.69696093, +0.355235934E-1), (+1.58020496, +0.861633182), (+1.37469733, +0.262699723E-1), (+1.59597182, +0.370464683), (+1.24243724, +0.690296948), (+1.21465528, +0.686201811), (+1.88502169, +0.799241841), (+1.38049698, +0.936134994), (+1.30115294, +0.607386768), (+1.02529764, +0.655856013), (+1.40718484, +0.421324134), (+1.85771775, +0.487125158), (+1.00910640, +0.305039823), (+1.09689450, +0.465804696), (+1.36111355, +0.910581946), (+1.79103184, +0.461419821E-1), (+1.39917421, +0.893008590), (+1.63778424, +0.709084690), (+1.17756033, +0.280384183), (+1.69462276, +0.343383729), (+1.89642930, +0.613890529), (+1.35133123, +0.874860168), (+1.94835770, +0.329168081), (+1.56231534, +0.956929088), (+1.94687450, +0.264866531), (+1.02108061, +0.821776032), (+1.02041256, +0.345018506), (+1.45475733, +0.351162553E-1), (+1.43596303, +0.769431233), (+1.13834298, +0.684809089E-1), (+1.77202296, +0.906379223), (+1.41406620, +0.968277335), (+1.74992990, +0.514417827), (+1.80287755, +0.627874851), (+1.71016049, +0.123226047), (+1.79352891, +0.997730136), (+1.25762939, +0.115332603), (+1.70881903, +0.248578668), (+1.00912738, +0.974708319), (+1.47003627, +0.472912431), (+1.13113213, +0.241211534), (+1.34674382, +0.336367249), (+1.78476024, +0.992971718), (+1.75423455, +0.636855721), (+1.10142875, +0.313458443)

415

416adat = getFFTR(getFFTF(data)) / size(data)

417adat

418(+1.32462656, +0.337222308), (+1.96816301, +0.867817283), (+1.77727747, +0.533308387), (+1.46724772, +0.757653952), (+1.95092010, +0.122431442), (+1.68192816, +0.290029019), (+1.01312542, +0.813372552), (+1.69212461, +0.444775462), (+1.65849602, +0.643337667), (+1.18830383, +0.392157465), (+1.41682875, +0.447541416), (+1.29054356, +0.482654005), (+1.93476558, +0.651803687E-1), (+1.08373034, +0.999149144), (+1.12411416, +0.168238536), (+1.45928872, +0.188669071), (+1.33667898, +0.509398699), (+1.34040070, +0.904375613), (+1.29222643, +0.431087650E-1), (+1.20974207, +0.591291904), (+1.04112160, +0.255409162E-1), (+1.35400641, +0.423518747), (+1.09872961, +0.789856374), (+1.40830898, +0.884050548), (+1.59235799, +0.373638600), (+1.25446892, +0.636256933), (+1.17283130, +0.139146283), (+1.66038084, +0.264660329), (+1.58528280, +0.662781179), (+1.31580806, +0.975185037), (+1.00381708, +0.503731966), (+1.81894886, +0.931352556), (+1.24916816, +0.715737522), (+1.90041554, +0.529409826), (+1.83108854, +0.526351213), (+1.72216976, +0.675449312), (+1.23322153, +0.923017144), (+1.57682264, +0.982245386), (+1.76365101, +0.952035487E-1), (+1.02558613, +0.922415674), (+1.25160217, +0.349410295), (+1.32123864, +0.148183405), (+1.38977206, +0.880879462), (+1.69696081, +0.355234779E-1), (+1.58020484, +0.861633241), (+1.37469721, +0.262697618E-1), (+1.59597158, +0.370464593), (+1.24243724, +0.690296710), (+1.21465492, +0.686201692), (+1.88502192, +0.799242079), (+1.38049710, +0.936135352), (+1.30115306, +0.607386589), (+1.02529752, +0.655855954), (+1.40718460, +0.421324044), (+1.85771763, +0.487125129), (+1.00910640, +0.305039883), (+1.09689438, +0.465804607), (+1.36111343, +0.910581946), (+1.79103172, +0.461419933E-1), (+1.39917409, +0.893008590), (+1.63778424, +0.709084928), (+1.17756081, +0.280384272), (+1.69462276, +0.343383759), (+1.89642894, +0.613890588), (+1.35133088, +0.874860168), (+1.94835746, +0.329167932), (+1.56231534, +0.956929147), (+1.94687462, +0.264866471), (+1.02108014, +0.821776032), (+1.02041209, +0.345018417), (+1.45475733, +0.351160653E-1), (+1.43596339, +0.769431472), (+1.13834310, +0.684812516E-1), (+1.77202332, +0.906379342), (+1.41406631, +0.968277335), (+1.74992990, +0.514417708), (+1.80287707, +0.627874792), (+1.71016037, +0.123225950), (+1.79352880, +0.997730196), (+1.25762892, +0.115332648), (+1.70881879, +0.248578370), (+1.00912714, +0.974708378), (+1.47003639, +0.472912610), (+1.13113260, +0.241211593), (+1.34674382, +0.336367279), (+1.78476000, +0.992971599), (+1.75423419, +0.636855543), (+1.10142839, +0.313458323)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+16

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.1893467268599580, +0.55130160105043413), (+1.8751265102022834, +0.62040718842020726), (+1.8021535659274681, +0.86014700075694506), (+1.1401071039533606, +0.71680629301143817), (+1.0420053534776414, +0.67312200851660109), (+1.4196250804845185, +0.65935694057483696), (+1.4207646324016558, +0.79332709973462279), (+1.1727048813061050, +0.50848056034346811), (+1.8662837477711489, +0.70260065929495830), (+1.0282093485171617, +0.57664372762768290), (+1.4692991307607852, +0.90376441341292713), (+1.9264876658818821, +0.82716613765368474), (+1.0401405291605845, +0.45848585868553915), (+1.0898926362000725, +0.56092897516289952), (+1.6426900705918159, +0.48467388994111904), (+1.4205537284405754, +0.31329636677218919)

432

433adat = getFFTR(getFFTF(data)) / size(data)

434adat

435(+1.1893467268599580, +0.55130160105043413), (+1.8751265102022832, +0.62040718842020715), (+1.8021535659274683, +0.86014700075694495), (+1.1401071039533606, +0.71680629301143794), (+1.0420053534776414, +0.67312200851660098), (+1.4196250804845185, +0.65935694057483685), (+1.4207646324016556, +0.79332709973462279), (+1.1727048813061050, +0.50848056034346811), (+1.8662837477711487, +0.70260065929495830), (+1.0282093485171615, +0.57664372762768279), (+1.4692991307607854, +0.90376441341292701), (+1.9264876658818824, +0.82716613765368463), (+1.0401405291605847, +0.45848585868553915), (+1.0898926362000725, +0.56092897516289952), (+1.6426900705918159, +0.48467388994111904), (+1.4205537284405754, +0.31329636677218908)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+78

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.60641191902806401124397144985260151, +0.469285606729699947335687487667776456), (+1.77439885620949160715882810489745633, +0.565403894628109107775056995241640433), (+1.47486327484050547932288469246404455, +0.574498000312534796979343121512959261), (+1.92961205984124517711141602617124105, +0.937438803469518348154630828775133303), (+1.48248960767921839852948962614922561, +0.672902343905269789237312410497867862), (+1.78238377506213802513376590494947508, +0.913114474687960289405966906954116026), (+1.81783989647069669440396055081544125, +0.578303094270691255400581872750933488), (+1.40452640371903388524491153939091394, +0.741039922597188932875751185977844851), (+1.45657098914350622800803163712320162, +0.880634155417666858387270731737522182E-1), (+1.79166411434608834632111731325734306, +0.579593307073188321774798954248312976E-1), (+1.05936860241543921104820179297036815, +0.226378973412472154105296511838318532), (+1.63893914830398517146119051021988553, +0.402115647803586734131222819867036335), (+1.22264691862801380048692121363881848, +0.503978042157682406903428381329984960), (+1.91171088094160272357894255764249126, +0.556557747106148767519864753241355285), (+1.13063411217448908191386067741842862, +0.393482511653690931698760377075292079), (+1.58787555721289646666927866513294482, +0.323166787582249416226757884714410247), (+1.52734397401673683485528983113896857, +0.376292733514294975582796363531857663), (+1.51379143907532242999194377228238739, +0.371397669931448807766603132801890784), (+1.84920318189953700532977703998072179, +0.693786634693769989800934666917323959), (+1.26647509444054574157132237305985342, +0.156161230356783936905165124477068694), (+1.97276358877926988177759418796095754, +0.320522833657575943816989918179359621), (+1.88842436530475555165925744209127256, +0.618157700528777648175697404620970689), (+1.87606725126804949928788982313397603, +0.901225619024567675906698231837146140), (+1.04322869914729545675689917204802505, +0.991440440539478846561412289749815577), (+1.01504122078552644627669847785376491, +0.249620777062452994212873011817804495), (+1.90988997026336335175179137324927604, +0.159686308108944169675527920128437838), (+1.10316104869093540932801294799489774, +0.183152640249340607300512475638869458), (+1.52639489264199347744526524377688542, +0.313555945288313630253191930063315475), (+1.38520650652585392354030398456511583, +0.179755389202487241628589014626474043), (+1.31281624223671220711195433824978744, +0.101301999752448667052554076675072140), (+1.33458934523420772652308843756138342, +0.897361916285858143026598187443793477), (+1.22628799451193058146346633534146193, +0.465627072066270565434578803972730847), (+1.19258745931555584126692371806030003, +0.104395025688643147380245062796177727E-2), (+1.99279453704074172502151765660227421, +0.590662691197527030070203423979858805), (+1.61474157655891457477073010103049370, +0.647395797037075998831069021412161227), (+1.71170202645999817129083216758428835, +0.258001249452274413496444164311929197), (+1.70567641715011690022266087158124837, +0.420050751488670520310562521002081838E-1), (+1.44876244135544757441393770269630271, +0.242143902356677612292250241736969141), (+1.52309956112582027497882678047629022, +0.355802456871294038183926935837510414), (+1.31342254114438359886594075162225392, +0.776353296758621619944382753377923901), (+1.53715220834234378954927479025268138, +0.614694803377950680971188561596821836), (+1.71807763514880790161597300153441955, +0.975798416242342796817306433793032639), (+1.55815389921294594403044392287440158, +0.428361400347270785963479677992220425), (+1.76825321726072362115266931712822523, +0.475336644438845395575504903855404539), (+1.99384077248293889352353568593052219, +0.172563031460107459634327095153976873), (+1.90490053301169939249588125734008581, +0.181073936495032361266589349737045890), (+1.92294049681872067061417261412187996, +0.652947043077317710037872345370993232), (+1.53795013564091074986885469718122081, +0.190270796632230979816350354492742588), (+1.32387331612918985818673079199079038, +0.299281830410467228629389271173271269), (+1.94989883780232348234633179539021429, +0.513803389585191479445748185922502345), (+1.72240758347076163149396666376969669, +0.533423876778572163701954879065253925), (+1.77267088233066142310868344816006932, +0.314996516430051236438149467210452880), (+1.46619971372165090446931709521339604, +0.258351907355393576784003112600687350), (+1.95529236560572424569288907236659451, +0.970248649972744224781686209504436782), (+1.43002383683230573609287375996942597, +0.492845714427546668579060933056450929), (+1.43454197253180773648349736045814992, +0.120390016627989860526792264002782566), (+1.55377254261753795869521571663378453, +0.848750433933436611253789262936632167), (+1.10422456225464318114109474271513780, +0.932228314629214521510158280229269404), (+1.14847626343042978363427574428019541, +0.745679038539708385801894851005087392), (+1.30071463374373361292105846686781922, +0.186649477026831137126273567841285841), (+1.25494491048155008761520589084925563, +0.398635355411196484529306254107043078), (+1.96718408641462962321496824620600721, +0.457657415169866285606277665659048578), (+1.13193178056777403010965103878839615, +0.884792084001301949052092127660632536), (+1.51025518699476813486102826391256788, +0.651677258394457349281602161360038440), (+1.63310795388040766752588775797259023, +0.688499980694688597527333384018112868), (+1.82208419651621331717450021576726347, +0.872734960585836615955404217227504044), (+1.51196939958570036070046241506602966, +0.562545969333476151101992583806723562), (+1.77622106186556231076210352012665248, +0.163642449414317447763177458123516392), (+1.94117307349181749239212667321074769, +0.195854469873631464240245855250611350), (+1.02413832959162998619304825482428430, +0.573535719479624989259726867681665215E-1), (+1.83971314849183938515433287048855510, +0.634697525333283304796803689187368740), (+1.23303842415723649630134279722718935, +0.969394284839271413431147684698713696), (+1.07631719385362021170212713547121337, +0.952594982861834801856853397871950406), (+1.56569819308739426757308113810204300, +0.510882720617215640643984886054077364), (+1.53892997715880569867780511343972663, +0.396779946666413883364656725853652348), (+1.18404375802204030578844881085396895, +0.322626312648526397813439953177598584), (+1.52886651103321629175285936292151993, +0.985806866738347679254852818029830656), (+1.21752982372382899670925496898207982, +0.920301351900265522777004411023638275)

449

450adat = getFFTR(getFFTF(data)) / size(data)

451adat

452(+1.60641191902806401124397144985260112, +0.469285606729699947335687487667776552), (+1.77439885620949160715882810489745614, +0.565403894628109107775056995241640433), (+1.47486327484050547932288469246404455, +0.574498000312534796979343121512959358), (+1.92961205984124517711141602617124067, +0.937438803469518348154630828775133592), (+1.48248960767921839852948962614922542, +0.672902343905269789237312410497867765), (+1.78238377506213802513376590494947469, +0.913114474687960289405966906954116122), (+1.81783989647069669440396055081544145, +0.578303094270691255400581872750933681), (+1.40452640371903388524491153939091433, +0.741039922597188932875751185977845140), (+1.45657098914350622800803163712320143, +0.880634155417666858387270731737521820E-1), (+1.79166411434608834632111731325734267, +0.579593307073188321774798954248313096E-1), (+1.05936860241543921104820179297036776, +0.226378973412472154105296511838318725), (+1.63893914830398517146119051021988572, +0.402115647803586734131222819867036238), (+1.22264691862801380048692121363881790, +0.503978042157682406903428381329984960), (+1.91171088094160272357894255764249126, +0.556557747106148767519864753241355670), (+1.13063411217448908191386067741842843, +0.393482511653690931698760377075291983), (+1.58787555721289646666927866513294501, +0.323166787582249416226757884714410151), (+1.52734397401673683485528983113896818, +0.376292733514294975582796363531857566), (+1.51379143907532242999194377228238681, +0.371397669931448807766603132801890736), (+1.84920318189953700532977703998072179, +0.693786634693769989800934666917324055), (+1.26647509444054574157132237305985361, +0.156161230356783936905165124477068935), (+1.97276358877926988177759418796095754, +0.320522833657575943816989918179359717), (+1.88842436530475555165925744209127217, +0.618157700528777648175697404620970689), (+1.87606725126804949928788982313397584, +0.901225619024567675906698231837146043), (+1.04322869914729545675689917204802486, +0.991440440539478846561412289749815962), (+1.01504122078552644627669847785376510, +0.249620777062452994212873011817804471), (+1.90988997026336335175179137324927546, +0.159686308108944169675527920128438006), (+1.10316104869093540932801294799489736, +0.183152640249340607300512475638869771), (+1.52639489264199347744526524377688523, +0.313555945288313630253191930063315524), (+1.38520650652585392354030398456511583, +0.179755389202487241628589014626473971), (+1.31281624223671220711195433824978725, +0.101301999752448667052554076675071911), (+1.33458934523420772652308843756138342, +0.897361916285858143026598187443793284), (+1.22628799451193058146346633534146154, +0.465627072066270565434578803972730895), (+1.19258745931555584126692371806030023, +0.104395025688643147380245062796185137E-2), (+1.99279453704074172502151765660227402, +0.590662691197527030070203423979858709), (+1.61474157655891457477073010103049370, +0.647395797037075998831069021412161227), (+1.71170202645999817129083216758428797, +0.258001249452274413496444164311929149), (+1.70567641715011690022266087158124779, +0.420050751488670520310562521002080754E-1), (+1.44876244135544757441393770269630271, +0.242143902356677612292250241736969237), (+1.52309956112582027497882678047629002, +0.355802456871294038183926935837510414), (+1.31342254114438359886594075162225353, +0.776353296758621619944382753377924286), (+1.53715220834234378954927479025268119, +0.614694803377950680971188561596821932), (+1.71807763514880790161597300153441994, +0.975798416242342796817306433793033024), (+1.55815389921294594403044392287440120, +0.428361400347270785963479677992220425), (+1.76825321726072362115266931712822485, +0.475336644438845395575504903855404539), (+1.99384077248293889352353568593052180, +0.172563031460107459634327095153976897), (+1.90490053301169939249588125734008581, +0.181073936495032361266589349737046203), (+1.92294049681872067061417261412188035, +0.652947043077317710037872345370993232), (+1.53795013564091074986885469718122081, +0.190270796632230979816350354492742757), (+1.32387331612918985818673079199079000, +0.299281830410467228629389271173271028), (+1.94989883780232348234633179539021352, +0.513803389585191479445748185922502538), (+1.72240758347076163149396666376969708, +0.533423876778572163701954879065254118), (+1.77267088233066142310868344816006894, +0.314996516430051236438149467210452976), (+1.46619971372165090446931709521339604, +0.258351907355393576784003112600687687), (+1.95529236560572424569288907236659451, +0.970248649972744224781686209504436685), (+1.43002383683230573609287375996942597, +0.492845714427546668579060933056450881), (+1.43454197253180773648349736045814953, +0.120390016627989860526792264002782651), (+1.55377254261753795869521571663378395, +0.848750433933436611253789262936632167), (+1.10422456225464318114109474271513761, +0.932228314629214521510158280229269693), (+1.14847626343042978363427574428019560, +0.745679038539708385801894851005087392), (+1.30071463374373361292105846686781942, +0.186649477026831137126273567841285985), (+1.25494491048155008761520589084925563, +0.398635355411196484529306254107043030), (+1.96718408641462962321496824620600683, +0.457657415169866285606277665659048626), (+1.13193178056777403010965103878839595, +0.884792084001301949052092127660632728), (+1.51025518699476813486102826391256807, +0.651677258394457349281602161360038536), (+1.63310795388040766752588775797259023, +0.688499980694688597527333384018112771), (+1.82208419651621331717450021576726347, +0.872734960585836615955404217227504333), (+1.51196939958570036070046241506602909, +0.562545969333476151101992583806723562), (+1.77622106186556231076210352012665268, +0.163642449414317447763177458123516633), (+1.94117307349181749239212667321074750, +0.195854469873631464240245855250611374), (+1.02413832959162998619304825482428372, +0.573535719479624989259726867681666719E-1), (+1.83971314849183938515433287048855471, +0.634697525333283304796803689187368740), (+1.23303842415723649630134279722718935, +0.969394284839271413431147684698714081), (+1.07631719385362021170212713547121356, +0.952594982861834801856853397871950599), (+1.56569819308739426757308113810204281, +0.510882720617215640643984886054077460), (+1.53892997715880569867780511343972624, +0.396779946666413883364656725853652155), (+1.18404375802204030578844881085396837, +0.322626312648526397813439953177598680), (+1.52886651103321629175285936292152012, +0.985806866738347679254852818029830656), (+1.21752982372382899670925496898207944, +0.920301351900265522777004411023638178)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+10

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.28153634, +1.55502343, +1.23440039, +1.34971404, +1.24855900, +1.65265656, +1.19440734, +1.61057389, +1.92617631, +1.65732002

466

467adat = getFFTR(getFFTF(data)) / size(data)

468adat

469+1.28153610, +1.55502319, +1.23440051, +1.34971404, +1.24855900, +1.65265656, +1.19440746, +1.61057401, +1.92617643, +1.65732002

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+21

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.5661077699130534, +1.1363106931967590, +1.7361656413135944, +1.8659090992915908, +1.5088691977907147, +1.2721172121146704, +1.6397104027399472, +1.5524511267078887, +1.8507085250996806, +1.7900375226550409, +1.6176448722093766, +1.8230915388830584, +1.5352825231456337, +1.1198481405970460, +1.1287587680810240, +1.6485764569964372, +1.8574872493398900, +1.2442244182696889, +1.3585379779200861, +1.2732078400647484, +1.8359981133473802

483

484adat = getFFTR(getFFTF(data)) / size(data)

485adat

486+1.5661077699130534, +1.1363106931967588, +1.7361656413135942, +1.8659090992915903, +1.5088691977907140, +1.2721172121146698, +1.6397104027399474, +1.5524511267078884, +1.8507085250996806, +1.7900375226550409, +1.6176448722093764, +1.8230915388830580, +1.5352825231456333, +1.1198481405970451, +1.1287587680810232, +1.6485764569964374, +1.8574872493398900, +1.2442244182696887, +1.3585379779200859, +1.2732078400647477, +1.8359981133473799

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+47

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.25300404909635755228235465678725368, +1.41523507554596789239538747218468118, +1.73338066882218158801862106679335734, +1.85316407512228501218183814307354766, +1.80762781049332232233556160544132150, +1.09270581113464920913988633568769572, +1.63132837876065143002107174553789105, +1.53160031981910165557894917990839887, +1.58192856852954442405689110444109346, +1.31997942286732767670510519342130063, +1.29448645597849680434153792139940609, +1.92067400548754834797388189165975980, +1.22527065141907603866257571931679367, +1.40445093179565935025600106316237901, +1.45054426789866571081066948778877658, +1.82524387197768213054039776784169367, +1.56240166064333686599943690912378049, +1.67932042834737303529661194351725914, +1.32437253039640876299388745768744260, +1.37694200671113441029363399200995864, +1.17181153848737004192996921097958860, +1.22514173931851125455080883949131645, +1.83215308379229704640353811328245001, +1.52142729232758388406369115967187654, +1.91861430229003611321529162848053368, +1.39733323378314418746748920680420025, +1.71503650900303822812589249802156769, +1.13957257218988619659337478392356264, +1.72793127649205041679337792226276555, +1.89304540296890292162158332604120499, +1.47413553254486393193814600017662574, +1.22544939995624838735770637711863270, +1.41827236082336281933111213259597094, +1.81849515243784187656880142756028090, +1.99692451212088571446199872581931080, +1.30574492309487257988090718846638052, +1.70907130363130433936204211317886168, +1.29885247574585169322503818591265435, +1.48035103481214319022277574413151833, +1.53219330048664678408997492654051367, +1.89038295265142116016055434446142084, +1.84333137393994708816911625629485005, +1.04652533592188783013571729602224778, +1.45743820488218544483409514529915683, +1.40865162197156150538633599676127974, +1.76178167281989994671830719460236422, +1.15927660297332244694194913028784964

500

501adat = getFFTR(getFFTF(data)) / size(data)

502adat

503+1.25300404909635755228235465678725233, +1.41523507554596789239538747218468118, +1.73338066882218158801862106679335599, +1.85316407512228501218183814307354747, +1.80762781049332232233556160544132054, +1.09270581113464920913988633568769553, +1.63132837876065143002107174553789085, +1.53160031981910165557894917990839829, +1.58192856852954442405689110444109211, +1.31997942286732767670510519342129986, +1.29448645597849680434153792139940475, +1.92067400548754834797388189165975961, +1.22527065141907603866257571931679252, +1.40445093179565935025600106316237862, +1.45054426789866571081066948778877600, +1.82524387197768213054039776784169386, +1.56240166064333686599943690912378049, +1.67932042834737303529661194351725972, +1.32437253039640876299388745768744144, +1.37694200671113441029363399200995826, +1.17181153848737004192996921097958706, +1.22514173931851125455080883949131684, +1.83215308379229704640353811328244924, +1.52142729232758388406369115967187866, +1.91861430229003611321529162848053638, +1.39733323378314418746748920680419929, +1.71503650900303822812589249802156865, +1.13957257218988619659337478392356052, +1.72793127649205041679337792226276497, +1.89304540296890292162158332604120403, +1.47413553254486393193814600017662612, +1.22544939995624838735770637711863328, +1.41827236082336281933111213259597132, +1.81849515243784187656880142756028090, +1.99692451212088571446199872581930984, +1.30574492309487257988090718846637898, +1.70907130363130433936204211317886130, +1.29885247574585169322503818591265320, +1.48035103481214319022277574413151756, +1.53219330048664678408997492654051232, +1.89038295265142116016055434446141969, +1.84333137393994708816911625629485005, +1.04652533592188783013571729602224778, +1.45743820488218544483409514529915625, +1.40865162197156150538633599676127917, +1.76178167281989994671830719460236325, +1.15927660297332244694194913028784944

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1156 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftpack.F90